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WIE SIE JEDE WOCHE IHR HEFT BEKOMMEN 
Computer Kurs ist ein wöchentlich erscheinendes Sammelwerk. Die Gesamt- 
zahl der Hefte ergibt ein vollständiges Computer-Nachschlagewerk. Damit 
Sie jede Woche Ihr Heft erhalten, bitten Sie Ihren Zeitschriftenhändler, Com- 
puter Kurs für Sie zu reservieren. 


Zurückliegende Hefte 
Ihr Zeitschriftenhändler besorgt Ihnen gerne zurückliegende Hefte. Sie kön- 
nen sie aber auch direkt beim Verlag bestellen. 


Deutschland: Das einzelne Heft kostet DM 3,80. Bitte füllen Sie eine Post- 
zahlkarte aus an: Marshall Cavendish Int. Ltd. (MCI), Sammelwerk-Service, 
Postgirocamt Hamburg 48064-202, Postfach 105703, 2000 Hamburg 1, Kenn- 
wort: Computer Kurs 


Österreich: Das einzelne Heft kostet öS 30. Bitte füllen Sie eine Zahlkarte 
aus an: Computer Kurs, Wollzeile 11, 1011 Wien, Postscheckkonto Wien 
7857201 oder legen Sie Ihrer Bestellung einen Verrechnungsscheck bei. 
Kennwort: Computer Kurs. 


Schweiz: Das einzelne Heft kostet sfr 3,80. Bitte wenden Sie sich an Ihren 
Kiosk; dort werden Sie jederzeit die gewünschten Exemplare erhalten. 


Abonnement 

Sie können Computer Kurs auch alle 2 Wochen (je 2 Ausgaben) per Post zum 
gleichen Preis im Abonnement beziehen. Der Abopreis für 12 Ausgaben be- 
trägt DM 45,60 inkl. Mwst., den wir Ihnen nach Eingang der Bestellung be- 
rechnen. Bitte senden Sie Ihre Bestellung an: Marshall Cavendish Int. Ltd. 
(MCI), Sammelwerk Service, Postgiroamt Hamburg 86853-201, Postfach 105703, 
2000 Hamburg 1, Kennwort: Abo Computer Kurs. Bitte geben Sie an, ab wel- 
cher Nummer das Abo beginnen soll und ob Sie regelmäßig für jeweils 12 Fol- 
gen einen Sammelordner wünschen. 


WICHTIG: Bei Ihren Bestellungen muß der linke Abschnitt der 
Zahlkarte Ihre vollständige Adresse enthalten, damit Sie die 
Hefte schnell und sicher erhalten. Überweisen Sie durch Ihre 
Bank, so muß die Überweisungskopie Ihre vollständige An- 
schrift gut leserlich enthalten. 


SAMMELORDNER 

Sie können die Sammelordner entweder direkt bei Ihrem Zeitschriftenhändler 
kaufen (falls nicht vorrätig, bestellt er sie gerne für Sie) oder aber Sie bestellen 
die Sammelordner für den gleichen Preis beim Verlag wie folgt: 


Deutschland: Der Sammelordner kostet DM 12. Bitte füllen Sie eine Zahl- 
karte aus an: Marshall Cavendish International Ltd. (MCI), Sammelwerk-Ser- 
vice, Postgiroamt Hamburg 48064-202, Postfach 105703, 2000 Hamburg 1, 
Kennwort: Sammelordner Computer Kurs. 


Österreich: Der Sammelordner kostet öS 98. Bitte füllen Sie eine Zahlkarte 
aus an: Computer Kurs Wollzeile 11, 1011 Wien, Postscheckkonto Wien 
7857201 oder legen Sie Ihrer Bestellung einen Verrechnungsscheck bei. 
Kennwort: Sammelordner Computer Kurs. 


Schweiz: Der Sammelordner kostet sfr 15. Bitte wenden Sie sich an Ihren 
Kiosk; dort werden Sie jederzeit die gewünschten Exemplare erhalten. 
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Tolles Ding 


Unter dem Namen „Dynabook“ wurde 1969 das Konzept eines 
universell zu gebrauchenden und portablen Computers entwickelt, 
noch bevor der Microprozessor erfunden war. 


lan Kay, ein junger amerikanischer Stu- 

dent der Computerwissenschaften, prä- 
sentierte 1969 sein Konzept eines universellen 
und transportablen Computers. Dieser „Dyna- 
book“ genannte Computer sollte eine einfache 
Benutzerführung aufweisen, audiovisuelle 
Kommunikation unterstützen und über Daten- 
banken Zugriff auf öffentliche Informationen 
gewährleisten. Kays Dynabook war eine Zu- 
kunftsvision, denn 1969 waren Microprozesso- 
ren noch nicht erfunden, und die kleinsten 
Computer waren damals mindestens so groß 
wie ein Kühlschrank. Außerdem kosteten 
diese Ungetüme Summen, die mit fünf Nullen 
endeten. 

1971 arbeitete Kay im Palo Alto Research 
Center (PARC) der Firma Xerox und war maß- 
geblich an der Forschungsgruppe beteiligt, 
die „Smalltalk“ erfand. Diese Computerspra- 


che sollte ursprünglich als Programmierspra- 
che und Betriebssystem des Dynabook die- 
nen. Das Xerox-Team baute jedoch den Dyna- 
book nicht, denn selbst 197], nach der Erfin- 
dung des Microprozessors, war die vorhan- 
dene Technik noch nicht leistungsfähig genug. 
Dennoch, die in „Smalltalk“ enthaltenen Ideen, 
wie z.B. Windows, Symbole oder Maussteu- 
erung, wurden langsam von der Industrie auf- 
genommen und führten zu Appels Lisa und 
Macintosh und zum Atari 520ST. 

Diese „historische“ Geschichte dient als An- 
regung, denn nun ist die Zeit gekommen, das 
Dynabook zu realisieren. Die benötigten Kom- 
ponenten sind entweder schon erhältlich oder 
werden es in Kürze sein. Heute sieht Alan Kays 
Vision schon realistischer aus. 

Dynabook sollte nach dem ursprünglichen 
Konzept nicht größer sein als ein Buch, batte- 


Ursprünglich von Alan 
Kay bei Xerox entwor- 
fen, könnte das futuri- 
stische „Dynabook“ mit 
Hilfe der heutigen 
Technik gebaut werden 
- der hohe Preis steht 
dem jedoch noch im 
Wege. In Zukunft 
könnte dennoch ein sol- 
ches Gerät eine unent- 
behrliche Hilfe werden, 
besonders für Gruppen 
(wie ältere Menschen 
zum Beispiel), die im- 
mer mehr in unserer 
sich schnell entwik- 
kelnden, technischen 
Gesellschaft isoliert 
werden. Ein frei defi- 
nierbares, berührungs- 
empfindliches LCD-Dis- 
play, Spracheingabe 
und ein Funknetzwerk 
würden es dem Anwen- 
der ermöglichen, Lei- 
stungen vom Wetterbe- 
richt bis zum persön- 
lichen Bankservice in 
Anspruch zu nehmen. 
Bis sich dieser Service 
selbst finanziert, könnte 
das Grundgerät entwe- 
der kostenlos oder mit 
minimalen Gebühren 
von staatlichen Stellen 
vergeben werden. 
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«MID 


Die Einführung eines 
Funknetzes Mitte der 
achtziger Jahre hat die 
Entwicklung des Radio- 
Modems beschleunigt. 
Das oben abgebildete 
Transam M1 ist ein in- 
telligenter Modem, der, 
in Verbindung mit 
einem Telefon, automa- 
tische Wahl und Auto- 
Antwort ermöglicht. 
Weiterhin besitzt er 
noch eine 15polige 
D-Buchse zum An- 
schluß einer Sende- 
und Empfangsstation 
zum Senden und Emp- 
fangen von Daten über 
das Funknetz. 
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riebetrieben und somit voll portabel. Es sollte 
Text-, Graphik- und Soundfähigkeiten sowie 
ein Farbdisplay besitzen. Außerdem sollte es 
ein leistungsfähiges Kommunikationsmedium 
sein. Ein wirklich revolutionärer Computer darf 
nicht einfach nur portabel sein, sondern sollte 
eine dominierende Rolle spielen im Datenaus- 
tausch mit anderen Benutzern, auch über weite 
Strecken, so wie das Telefon jetzt. In Kürze 
sollten wir fähig sein, sowohl Briefe zusammen 
mit Bildern und Tönen zu übertragen als auch 
zu empfangen. 


Fehlende Motivation 


Aber dies ist nur der Anfang. Es sollte ein Zu- 
griff auf öffentliche Dienstleistungen möglich 
sein: von Bibliotheken, deren Bücher und Pro- 
gramme wir auf unser eigenes System übertra- 
gen, bis hin zu Nachrichten, Wetterberichten, 
Unterhaltungs- und Schulungsangeboten. Ab- 
frage des Kontostandes, Einsicht in Straßen- 
pläne, Warenbestellung und Reisebuchungen 
sollten von jedem Ort aus vorgenommen wer- 
den können, unabhängig von Telefonen und 
Steckdosen. 

Obwohl sich vieles des unter „technischen 
Anforderungen“ Beschriebenen in der Ent- 


Technische Anforderungen 


Lassen Sie uns auf die vorhandenen oder im Ent- 
stehen befindlichen Technologien blicken, die Dy- 
nabook ermöglichen könnten. 

® Verarbeitungseinheit: Im Herzen der Ma- 
schine muß sich ein leistungsfähiger Prozessor 
befinden. 32-Bit-Prozessoren mit der Leistung grö- 
ßerer Computer sind heute schon als Microchips 
erhältlich. Jeder dieser Chips kann zwischen drei 
und zehn Millionen Befehle pro Sekunde ausfüh- 
ren. 

® Der Speicher: Die bedeutenden Hersteller von 
Speicherchips produzieren mittlerweile 256-KBit 
RAM-Chips. Doch läuft bereits die Arbeit an der 
nächsten Generation, den Ein-Megabit-Chips, auf 
Hochtouren. 

@ Bildschirm: Einige Hersteller produzieren 
hauptsächlich flache, monochrome Flüssigkristall- 
anzeigen, die einen IBM-PC-Graphik-Bildschirm 
mit 640 mal 200 Punkten emulieren. Lichtreflektie- 
rende Felder beleuchten diese Displays und be- 
seitigen deren Hauptnachteil — den schwachen 
Kontrast und den begrenzten Blickwinkel. Japani- 
sche Hersteller, unter ihnen Epson, haben bereits 
Prototypen eines Farb-LCDs vorgestellt, während 
Toshiba und andere an selbstleuchtenden Plasma- 
Röhren arbeiten. Der Auftrag der Forschungsar- 
beit ist die Entwicklung eines Flachbildschirms 
für Fernseher und weniger eines Computerdis- 
plays, welches Dynabook benötigt. Abzusehen 
sind auch berührungsempfindliche, flache Dis- 
plays als Ersatz für die Tastatur. 

® Stromversorgung: Die Stromversorgung ist 
noch das größte Problem. Die Leistungen, welche 
neue Displays und große Speicher verlangen, 
können herkömmliche Batterien, die auch in 
Hand-Held-Computern verwendet werden, sicher- 
lich nicht erbringen. Die Batterietechnologie 
macht, im Vergleich zur Halbleitertechnik, nicht so 
große Fortschritte. Jedoch sind neue, leistungsfä- 
higere Batterietypen im Entstehen, und gleichzei- 


wicklungsstufe befindet und sehr teuer ist, 
dürfte die Finanzierung des Dynabooks nicht 
das Problem sein. Sorgfältig ausgeführt wäre 
es ein idealer Artikel für eine Massenproduk- 
tion (insofern er weltweit für jedermann erhält- 
lich wäre). Bei solchen Produktionszahlen soll- 
ten Hardwarekosten keine große Rolle spielen. 
Die Vertriebsprobleme, die heute den Verkauf 
von Personalcomputern erschweren, würden 
sich von selbst lösen, könnten die Menschen 
die Computer wirklich sinnvoll benutzen — und 
Dynabook wäre nicht nur sinnvoll, sondern un- 
erläßlich. Das größte Problem liegt dabei nicht 
in der Technologie. Es ist eher die fehlende 
Motivation, ein solches System einzuführen. 
Letztendlich ist es ein politisches Problem, 
denn nur Regierungen verfügen über die Mög- 
lichkeiten, ein solches Projekt durchzuführen. 
Heutzutage existiert bereits alles, was Dyna- 
book tun könnte; vielfach durch öffentliche 
Mittel finanziert, realisiert mit unterschied- 
lichen, uneffizienten und teuren Systemen. 

In Frankreich werden heute schon Telefon- 
terminals bereitgestellt, da sie billiger als das 
Drucken und Verteilen von Telefonbüchern 
sind. Für die Dienstleistungen, weniger für die 
Hardware, müßten Gebühren erhoben werden, 
so wie für Telefon und Fernsehen. 


tig nimmt der Energieverbrauch der Chips immer 
mehr ab, da die Hersteller auf die sparsamere 
CMOS-Technik zurückgreifen. 

® Massenspeicher: Die Compact Laser Disk 
(CD) ist unempfindlich gegen magnetische Ein- 
flüsse. Das Dynabook könnte Read-Only-CDs als 
Medium zum Vertrieb von „Büchern“, auch spe- 
zieller Sachgebiete, benutzen. Eine andere Form 
des Massenspeichers ist die „Smart Card“. Dies 
ist eine Speichereinheit von der Größe einer 
Scheckkarte, die für alles, vom Softwarevertrieb 
bis zum Abwickeln von Bankgeschäften, benutzt 
werden kann. In naher Zukunft könnten solche 
Karten zum Bezahlen von Waren oder Leistungen 
mittels Dynabook dienen. 

® Sound: Es ist in letzter Zeit möglich, alle Kom- 
ponenten eines Audio-Systems auf einem Chip 
unterzubringen. Ein Beispiel für den Einsatz die- 
ser Chips ist der Sony Walkman. Sprache ist je- 
doch ein ganz anderes Kapitel. Synthetische Spra- 
che läßt sich einfach herstellen, und moderne Syn- 
thesizer können sie ganz gut darbieten. Das Ver- 
stehen natürlicher Sprache befindet sich aller- 
dings noch im Anfangsstadium. 

® Die Kommunikation: Die restlichen Teile des 
Dynabook-Puzzles liegen im Bereich der Kommu- 
nikation. Telefon Modems werden weithin schon 
auf einem Chip angeboten, sie sind aber nicht gut 
genug für Dynabook. Um absolute Bewegungs- 
freiheit zu erreichen, muß die Verbindung kabel- 
los durch Radiosender hergestellt werden. Das 
Dynabook-Konzept kann nur durch ein vielfach 
nutzbares, weltweites Kommunikationsnetz durch- 
gesetzt werden. Großcomputer stellen die Netz- 
knoten dar. Um sie zu erreichen, muß man zuerst 
eine Funkverbindung zu einer lokalen Computer- 
station herstellen. Diese sind über unterirdische 
Glasfaserkabel mit Netzknotenstellen verbunden, 
welche wiederum mit anderen Netzknoten und Sa- 
telliten in Verbindung stehen. Viele dieser Kom- 
ponenten sind bereits installiert — die Weiterent- 
wicklung stockt noch durch das Fehlen eines ein- 
heitlichen Verbindungsstandards. 


Zu Befehl! 


In den nächsten Folgen dieser Serie gehen wir ausführlich auf den 
Befehlssatz des Motorola 68000 ein. Zuerst untersuchen wir 
Übertragungsbefehle wie MOVE und PEA und sehen uns die 


arithmetischen Anweisungen an. 


n den vorangegangenen beiden Folgen hat- 

ten wir gesehen, wie der Motorola 68000 
Operanden adressiert, und dabei einen Ein- 
blick in Grundbefehle wie MOVE und ADD er- 
halten. Wir werden nun zunächst die Daten- 
übertragungsbefehle untersuchen und uns 
dann den Arithmetikbefehlen für binäre Be- 
rechnungen zuwenden. 

Wir beschreiben dabei die Anwendung der 
wichtigeren Befehle und gehen auch auf Hin- 
demisse und wesentliche Einzelheiten ein. 
Wenn Sie viel mit dem 68000 arbeiten wollen, 
sollten Sie sich das Buch „Programmierung 
des 68000" oder ein anderes der in dieser Se- 
rie empfohlenen Handbücher zulegen. 

Bevor wir die Befehle im einzelnen behan- 
deln, sehen wir uns erst einmal den Inhalt des 
Statusregisters (SR) genauer an. Die eine 
Hälfte dieses Registers enthält die Bedin- 
gungscodes mit Informationen über das Er- 
gebnis des letzten ausgeführten Befehls. Jeder 
Bedingungscode läßt sich als ein Ein-Bit- 
Speicher ansehen, der einem bestimmten 
arithmetischen Zustand zugeordnet ist. Hier 
die Codes im einzelnen: 

@® BIT 0: Übertrags-Bit oder C-Bit: Dieses Bit 
wird gesetzt, wenn ein arithmetischer Vorgang 


Systembyte 


einen Übertrag aus dem höchstwertigen Bit 
des Datenoperanden ergibt, zum Beispiel: 
Die Addition 01100000 


von 11100000 
ergibt 101000000 
Statussymbole 


Das Statusregister im 32-Bit-Format ist in einen Sy- 
stem- und einen Anwenderbereich unterteilt. Unser 
Bild zeigt die Bedeutung der einzelnen Bits. Ein 
Statusbit gibt an, in welchem Prozessormodus der 
68000 arbeitet, auf Supervisor- und Anwender- 
ebene. Die Überwachung der verschiedenen Ar- 
beitsabläufe ist im Mehrplatzbetrieb notwendig. 
Normalerweise werden auf dem 68000 alle Aufga- 
ben im Anwendermodus (der über einen eigenen 
Stackpointer verfügt, aber die Statusbits nicht ver- 
ändern kann) ausgeführt. Die Systemsoftware (bei- 
spielsweise die Sytemsteuerung) läuft im Supervi- 
sormodus ab. 

Am Anfang werden Sie die Arbeit im Supervi- 
sormodus sicherlich einfacher finden, da darin alle 
Opcodes legal sind, während die Programmierung 
im Anwendermodus Einschränkungen unterworfen 
ist. Der 68000 verfügt weiterhin über die Betriebsart 
‚Trace’, mit der Sie zur Fehlersuche Programme 
schrittweise ablaufen lassen können. Dabei ruft der 
68000 nach jedem Befehl automatisch eine Korrek- 
turroutine auf. 


Anwenderbyte 


> er 


132218 13:12. 11.0.0559 


PLLIILIIIITTTITT- = 


Interrupt- 
maske 


Prozessor- 
modus an 


Status- 
register 


Vorzei- 

chenbit 
Überlauf- 
bit 
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Mit MOVEM können 
Sie in einem Befehl 
ganze Registerlisten 
übertragen. Das Bild 
zeigt, wie MOVEM mit 
. der Vor-Dekrementie- 
rung und der Nach-In- 
krementierung drei Re- 
gister auf den Stack 
schiebt und wieder her- 
unterzieht. Dabei wird 
auch die Position des 
Stackpointers vor und 
nach jedem Befehl an- 
gegeben. 
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Speicherobergrenze 


Movem D2/D4/ A3,-(SP) 


SP (Ende) => 


Hier wird die l aus dem höchstwertigen Bit des 
Ergebnisses (mit Byte-Länge) übertragen. 

Der Übertrag fließt jedoch nicht in das nie- 
derwertige Bit der nächsthöheren Struktur (in 
diesem Fall — des Computerwortes), sondem 
in das C-Bit des SR. Ob der Übertrag über- 
haupt Bedeutung hat, hängt allerdings direkt 
vom programmierten Ablauf ab. Bei Berech- 
nungen mit höherer Präzision (z.B. wenn der 
Datenoperand aus mehreren Einheiten be- 
steht) hat der Übertrag große Bedeutung. 

@ BIT 1: Überlauf-Bit oder V-Bit: Dieses Bit 
wird gesetzt, wenn das Ergebnis der Berech- 
nung nicht in den Datenoperanden paßt. So er- 
zeugt das Addieren von 1 auf 32767 (die höch- 
ste positive Ganzzahl bei einem 16-Bit-Compu- 
terwort) einen Überlauf im Datenoperanden. 
Das binäre Ergebnis läßt sich damit nicht kor- 
rekt darstellen. 

@ BIT 2: Null-Bit oder Z-Bit: Wird gesetzt, wenn 
das Ergebnis einer Berechnung Null ist. 

@ BIT 3: Vorzeichen-Bit oder N-Bit: Wird bei 
negativen Ergebnissen gesetzt. 

@ BIT 4: Erweiterungs-Bit oder X-Bit: Dieses 
Bit wird bei Vorgängen mit höherer Präzision 
eingesetzt. Es hat die gleichen Funktionen wie 
das C-Bit, wird aber von MOVE-Befehlen nicht 
verändert. 

Der flexible Übertragunsbefehl MOVE ko- 
piert Daten von einer Quelle zum Ziel. Er kann 
die Quelle beliebig adressieren und auch für 
das Ziel die meisten Adressiermethoden ein- 
setzen (mit Ausnahme der Adreßregister, der 
PC-relativen Adressierung und des unmittel- 
baren Modus). Diese Gruppe von Adressie- 
rungsarten wird „datenverändernder Modus“ 
genannt. Eine Untergruppe davon stellen die 
sogenannten „speicherverändernden Modi“ 


Speicherobergrenze 


Movem (SP)+,D2/D4/A3 


SP 
(Ende) 


4 SP (Anfang) 


dar, die alle Daten mit Ausnahme der Datenre- 
gister verändern können. 

Beim MOVE-Befehl sind folgende Anwei- 
sungen illegal: 

RORG $1000 

MOVE D2,BETTY PC-relativ ist für BETTY 
nicht möglich 
Adreßregister lassen sich 
nicht als Ziel einsetzen 
MOVE beeinflußt Bit N und Z des SR, Bit V und 
Z, werden immer auf Null gesetzt. 

Adreßregister können auf zwei Wegen als 
Zieloperand eingesetzt werden: 

@ MOVEA kopiert den Inhalt des Quelloperan- 
den in das Adreßregister (Ziel). 

© LEA kopiert die (normalerweise absolute) 
Quellenadresse in das Adreßregister. 

Diese beiden Befehle haben keinen Einfluß 
auf die Bedingungscodes. Nach dem gleichen 
Prinzip arbeiten auch Spezialbefehle, die Da- 
ten ins Statusregister und den Stackpointer 
setzen oder von dort holen. Diese Befehle wer- 
den jedoch hauptsächlich in der Systempro- 
grammierung eingesetzt. 

Ein weiterer, sehr brauchbarer Übertra- 
gungsbefehl ist MOVEM, der beliebige Daten- 
oder Adreßregister aus aufeinanderfolgenden 
Speicherstellen lesen oder dorthin schreiben 
kann. Damit lassen sich beispielsweise beim 
Eintritt in eine Subroutine alle Register, die 
dort verändert werden, mit einem Befehl si- 
chern und nach dem Rücksprung wieder in 
ihren ursprünglichen Zustand versetzen: 

Einsprung MOVEM D2/D4/A3,PAD 

(die Subroutine 
arbeitet mit D2,D4 
und A3) 

Rücksprung MOVEM PAD,D2/D4/A3 


MOVE D2,A2 


Beim Sprung auf die Subroutine werden D2,D4 
und A3in PAD gesichert und nach Beendigung 
wieder zurückgeladen. Sie können die Regi- 
ster aber auch mit dem Stack sichern: 

Einsprung MOVEM D2/D4/A3,_(SP) 

(Code der Subroutine) 

Rücksprung MOVEM (SP)+,D2/D4/A3 
Eine Variation des Befehls MOVE ist die 
Schnellübertragung (MOVEQ). Da der ganze 
Befehl in einem Computerwort untergebracht 
ist, eignet er sich besonders für das Setzen 
einer vorzeichenbehafteten Acht-Bit-Konstan- 
ten (+127 bis — 128). MOVEQ initialisiert oft Da- 
tenregister als Schleifenzähler. Das Wort 

MOVEO #34,D2 
überträgt die Zahl 34 in D2. Wenn das Q fehlt, 
nehmen einige Assembler nicht automatisch 
den schnellen Modus, sondern codieren 
MOVE #34,D2 in zwei Wörtern. 

PEA (oder „effektive Adresse auf den Stack 
schieben”) ist ein weiterer Datenübertragungsbe- 
fehl, der sich gut für Stackvorgänge eignet. So 
schiebt PEA BETTY die Adresse BETTY auf den 
Stapel und vermindert den Stackpointer. 

Schließlich gibt es noch Befehle zum Austau- 
schen von Registern. SWAP vertauscht die 16 un- 
teren Bits eines Registers mit den 16 oberen Bits. 

SWAP D2 
tauscht das Computerwort in Bit O bis Bit 15 ge- 
gen das Wort von Bit 16 bis Bit 31. Der Befehl 
läßt sich gut für Berechnungen einsetzen, die 
in den Datenregistern mit Langwörtern arbei- 
ten. Die Prozedur sieht so aus: 

@ Langwort in D2 laden 

@ Berechnung mit dem Wort ausführen 

@ SWAP D2 

@ Berechnung mit dem Wort ausführen 

@ SWAP Wort 

Mit dem Tauschbefehl EXG lassen sich in be- 
stimmten Kombinationen Langworte im 32-Bit- 
Format tauschen. Hier einige Beispiele: 

EXG D2,D3 tauscht Datenregister 

EXG A3,A4 tauscht Adreßregister 

EXG D2,A6 tauscht Adreß- und Datenregister' 
EXG ist eigentlich ein SWAP mit 32-Bit-Worten. 

Diese Befehle bilden die Grundlage aller 
mathematischen Berechnungen. Sie addieren 
Binärstellen auf Basisebene. Selbst wenn es in 
Ihrem Programm keine numerischen Vorgänge 
gibt, finden einfache arithmetische Vorgänge 
statt, wenn Zeichencodes umgewandelt oder 
Arrayindizes angelegt werden. 

Der Befehl ADD addiert die Quelle mit dem 
Ziel und speichert das Ergebnis im Ziel. Das 
Datenobjekt kann jede mögliche Größe anneh- 
men, es werden alle Bedingungscodes beein- 
flußt. So addiert ADD.W D2,D3 den Inhalt von 
D2 mit D3 und speichert das Ergebnis in D3. 

Für den Quelloperanden können alle Adres- 
sierarten eingesetzt werden. Wenn das Zielein 
Adreßregister sein soll, müssen Sie allerdings 
mit ADDA arbeiten. ADDA D2, A4 addiert da- 
her den Inhalt von D2 auf A4. 

Für unmittelbare Daten gibt es den Spezial- 


befehl ADD], der diese Informationen (alle Da- 
tenformate sind möglich) als Erweiterungswort 
im Ziel speichert (hier sind nur datenverän- 
dernde Modi erlaubt). ADDI #3423 BETTY ad- 
diert 3423 mit dem Inhalt von BETTY. 

Wie bei MOVE gibt es auch eine schnelle 
Version von ADDI — ADDQ. Die Daten dürfen 
jedoch nur im Bereich von 1 bis 8 liegen. 
ADDQ 5,D2 addiert 5 auf den Inhalt von D2, wo- 
bei der ganze Befehl nur ein Wort belegt. 

Alle bisher erwähnten Addierbefehle be- 
rücksichtigen keine Überträge. Für die Bear- 
beitung von Überträgen, besonders bei Be- 
rechnungen mit mehrfacher Präzision, müssen 
Sie den Befehl ADDX verwenden. ADDX D2,D4 
addiert den Inhalt von D2, D4 und dem Erwei- 
terungsbit in SR und speichert das Ergebnis in 
D4. Wenn D2 00000000 enthält, D4 00000001 
und X auf 1 steht, dann ist der Inhalt von D4 
nach Ausführung von ADDX 00000010. Mit ADD 
erhalten Sie in D4 den Wert 00000001. 

Die SUBtraktionsbefehle entsprechen den 
ADD-Anweisungen. Sie haben die gleichen 
Adreßbeschränkungen und setzen auch die 
gleichen Bits des SR. Die folgenden Beispiele 
sind alle legal: 

SUB D2,D3 D2 von D3 subtrahieren und 
das Ergebnis in D3 speichern 

SUBA #4,A3 4 von A3 subtrahieren 

SUBI #200,D22 von D2 subtrahieren 

SUBO #1,D2 1 von D2 schnell subtrahieren 

SUBX D2,D4 Speichert das Ergebnis von 

D4-D2-X in D4 
Beachten Sie, daß der 68000er keinen separa- 
ten In- oder Dekrementierbefehl bietet. Sie 
müssen dafür die Versionen von ADD und SUB 
einsetzen, die nur ein Wort lang sind. 


SWAP D2 


Vorher 


Nachher 


EXG D2,D3 


Vorher 


Nachher 


Die Arbeit mit Lang- 
wörtern kann recht un- 
handlich werden, wenn 
Sie mit Wort- oder Byte- 
operanden arbeiten. 
SWAP erleichtert diese 
Aufgabe, indem es die 
Registerwerte von Bit 0 
bis Bit 15 gegen die von 
Bit 16 bis Bit 31 aus- 
tauscht. Mit EXG las- 
sen sich Langwörter 
gegeneinander austau- 
schen. 
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Alle Möglichkeiten 


Das Betriebssystem Unix bietet eine enorme Vielfalt an 
Dienstprogrammen, die in Verbindung mit dem Pipeline-Verfahren 
weitreichende Möglichkeiten eröffnen. 


nix-Kommandos haben das Format 

Befehl-Name Optionen Parameter 
Die einzelnen Elemente der Befehlszeile müs- 
sen voneinander durch mindestens einen 
Leerraum getrennt sein. Bei den Parametern 
handelt es sich im allgemeinen um Datei- oder 
Directory-Namen. Werden für die Ein- und 
Ausgabe keine Vorschriften gemacht, spricht 
das System automatisch die Tastatur 
(‚Standardinput') bzw. den Bildschirm (,Stan- 
dardoutput') an. 

Eine ‚Option’ besteht aus einem Buchstaben 
oder Zeichen mit vorgesetztem Bindestrich. 
Nach einem Bindestrich können auch mehrere 
Optionen folgen. Für den Befehl ‚ls’ zum Aufli- 
sten eines Directory z.B. gibt es rund ein hal- 
bes Dutzend Optionen, darunter ‚l' für das Auf- 
listen im Langformat und ‚a’ für die Anzeige al- 
ler Einträge (einschl. Systemdateien). Parame- 
ter kann entweder eine Dateispezifikation 
oder ein Directory-Name sein; fehlt beides, 
wird das aktuelle Directory ausgegeben. 

Das Auflisten des Directory /usr mit den 
Optionen ‚l’ und ‚a’ veranlassen Sie durch 
Is —1 —a /usr oder Is -la /usr 
Falsche Schreibweise löst eine Fehlermeldung 
mit einem Hinweis auf die korrekte Form aus. 
Als Trennsymbol zwischen Befehlsgruppen in- 
nerhalb einer Zeile dient das Semikolon. 

Der Befehl ‚wc’' zählt die Zeichen, Wörter 
und Zeilen in einer Textdatei. 

—I: nur Zeilenzählung (lines) 

—w: nur Wortzählung (words) 

-c: nur Zeichenzählung (characters) 

—p: Seitenzählung (pages; jeweils 66 Zeilen) 
Wenn als Parameter mehr als ein Dateiname 
folgt, wird zusätzlich die Summe der Einzel- 
werte angezeigt. Ist keine Datei genannt, wird 
die Eingabe über die Tastatur erwartet. 

Der Befehl ‚head’ (Kopf) veranlaßt die Aus- 
gabe der Anfangszeilen einer Datei über 
‚Standardoutput' auf dem Bildschirm. Als ein- 
zige Option ist die Festlegung der Zeilenan- 
zahl vorgesehen, etwa in der Form ‚—15'; da- 
nach muß mindestens ein Dateiname kommen. 
Der Befehl ‚tail' filtert das Endstück einer Datei 
heraus; verfügbar sind die Optionen 


+n: Ausgabebeginn n ’Einheiten’ nach Da- 
teianfang (hier kein ’—’ vor der Option!) 

—n: Ausgabebeginn n 'Einheiten’ vor Da- 
teiende (Standardwert: n=10) 

—: Zeile als "Einheit’ (Standardeinstellung) 

-b: Diskette-Blocklänge als 'Einheit' 


—c: Zeichen als 'Einheit' 

-r: Ausgabe in umgekehrter Reihenfolge 
Zum Sortieren und zum Mischen dient das 
Kommando ‚sort mit den Optionen 


—b: Ignorieren vorangehender Leerräume 
beim Vergleich 

—d: Lexikografisches Sortieren (nur Buch- 
staben, Ziffern, Leerräume beachten) 

-f: Groß- und Kleinschreibung gleichwertig 

—n: Zahlen nicht ziffernweise, sondern 
stellenwertrichtig sortieren 

—-o: Ausgabe an Datei statt an 'Standard- 
output 


-r: Sortieren in umgekehrter Reihenfolge 
Als Parameter können ein oder mehrere Datei- 


namen aufgeführt sein; entsprechend wird ent- 
weder nur in einer Datei sortiert oder aber im 
ganzen, was eine Vermischung der betroffe- 
nen Dateien bedeutet. 

Der Befehl ‚cmp’' (compare) veranlaßt das 
zeilenweise Vergleichen zweier Dateien und 
bewirkt in der Grundform nur die Anzeige von 
Byte- und Zeilennummer der ersten gefunde- 
nen Abweichung. Die einzige vorgesehene 
Option ‚!' führt zur Ausgabe sämtlicher Diffe- 
renzen zwischen den beiden Dateien. Ist als 
Parameter ein File allein genannt, wird die Ver- 
gleichsdatei über ‚Standardinput' erwartet. 

Die Anweisung ‚comm' (common) sucht 
nach Gemeinsamkeiten zwischen zwei nach 
ASCI sortierten Dateien und gibt in getrennten 
Spalten (1) die Zeilen aus, die nur in der er- 
sten, (2) solche, die nur in der zweiten und (3) 
alle, die in beiden Dateien vorkommen. Durch 
die Optionen 1, 2 und 3 lassen sich einzelne 
Spalten unterdrücken; in jedem Fall müssen 
zwei Dateinamen als Parameter folgen. 

Auch die Routine ‚diff’ forscht zeilenweise 
nach Differenzen zwischen zwei Dateien und 
zeigt an, was zum Ängleichen mit der ersten 
geschehen muß: für Anfügen erscheint ein ‚a’, 
für Ändern (change) ein ‚c’ und für Löschen 
(delete) ein ‚d’. Danach folgen die nicht über- 
einstimmenden Zeilen mit vorgesetztem ‚<’ 
für die erste und ‚>' für die zweite Datei. Zu- 
lässige Optionen: 

—b: Ignorieren nachstehender Leerräume 

und der Länge von größeren Lücken 

—e: Ausgabe einer Editor-Kommandodatei 

zur Korrektur der ersten Datei 

-r: Nur bei Directories — erlaubt die re- 

kursive Anwendung von ‚diff’ auf Sub- 
direktories 


Als Parameter kommt ein Paar von Datei- oder 
Directorynamen in Frage. Im Fall von Directo- 
ries führt ‚diff'’ alle Dateien auf, die nur in 
einem Verzeichnis stehen, und danach diejeni- 
gen, die in beiden zu finden sind. 

Der Befehl ‚uniq’ bewirkt, daß in einer Text- 
datei benachbarte sich wiederholende Zeilen 
bis auf eine gelöscht werden. Die Optionen 
sind: 

—u: Ausgabe nur einfach vorhandener Zeilen 

-d: Ausgabe aller Mehrfachzeilen (je einmal) 

-c: Anzeige der Wiederholungshäufigkeit 

in der Datei bei jeder Zeile 

Das Kommando ‚lpr' übergibt eine oder meh- 
rere Dateien an den Drucker. Da das Drucken 
bei Mehrprogrammbetrieb nicht direkt erfol- 
gen kann, stellt das System die Daten in eine 
Warteschlange und arbeitet sie mit Hilfe eines 
‚Spoolers’ ab. Außer den Dateinamen als Para- 
meter lassen sich in Abhängigkeit von der je- 
weiligen Anlage diverse Optionen angeben. 

Der Befehl ‚Ipq’ teilt Einzelheiten über den 
aktuellen Stand der Drucker-Warteschlange 
(lineprinter-queue) mit, d.h. ob eine be- 
stimmte Datei schon gedruckt ist. Jeder Druck- 


Dateibearbeitung 


%cat file] 

Die Katze saß auf der Matte. 

Mary hatte ein kleines Lamm. 

Der flinke braune Fuchs springt über den faulen Hund. 
Die Eule und die Katze zogen ans Wasser. 


%cat file2 

Die Katze saß auf dem Hund. 

Mary hatte ein kleines Lamm. 

Der flinke braune Fuchs springt über den faulen Hund. 
Die Eule und die Katze zogen ans Wasser. 


%cat file3 

Die Katze saß auf der Matte. 

Mary hatte ein kleines Lamm. 

Der flinke braune Fuchs springt über den faulen Hund. 
Diese Datei hat eine Zeile mehr. 

Die Eule und die Katze zogen ans Wasser. 


%wc file1 (Zeilen, Wörter und Zeichen in filel) 
4 28 153 filel 


%we —w file] (nur Wörter zählen) 
28 filel 


%head —2 file] (nur die ersten beiden Zeilen ausgeben) 
Die Katze saß auf der Matte. 
Mary hatte ein kleines Lamm. 


%tail +2 file (von der zweiten Zeile an ausgeben) 
Mary hatte ein kleines Lamm. 

Der flinke braune Fuchs springt über den faulen Hund. 
Die Eule und die Katze zogen ans Wasser. 


%tail —2 file (die letzten beiden Zeilen ausgeben) 
Der flinke braune Fuchs springt über den faulen Hund. 
Die Eule und die Katze zogen ans Wasser. 


%sort file1 (Zeilen alphabetisch sortieren) 

Der flinke braune Fuchs springt über den faulen Hund. 
Die Eule und die Katze zogen ans Wasser. 

Die Katze saß auf der Matte. 

Mary hatte ein kleines Lamm. 


auftrag in der Schlange läuft unter einer Num- 
mer. Parameter oder Optionen sind bei diesem 
Befehl nicht vorgesehen. 

Mit ‚lprm’ (lineprinter-remove) läßt sich eine 
Datei aus der Druckerschlange entfernen, 
wenn als Parameter der Dateiname oder die 
über ‚lpq’ mitgeteilte Jobnummer folgt. Wird 
statt dessen die Benutzerkennung (wie bei ‚lo- 
gin') angegeben, bewirkt das die Ännullierung 
sämtlicher Druckaufträge des Benutzers. 

Das Kommando ‚pr' dient zur Wiedergabe 
von Textfiles im Druckformat über den ‚Stan- 
dardoutput'. Der umbrochene Text erscheint 
seitenweise, mit fünf Leerzeilen unten sowie 
dem Kopf aus Datum, Dateiname und Seiten- 
zahl und zwei Leerzeilen. Als Optionen sind 
vorgesehen 

—-n: Ausgabe in n-spaltigem Satz 

-m: Ausgabe mehrerer Dateien nebenein- 

ander 

-t: Unterdrücken von Kopf und Rand 
Das untenstehende Dialogbeispiel soll anhand 
von drei Textdateien erläutern, wie vielseitig 
und effizient Sie mit diesen Unix-Kommandos 
arbeiten können. 


%pr file3 (Druckformatierung von file3) 

Die Katze saß auf der Matte. 

Mary hatte ein kleines Lamm. 

Der flinke braune Fuchs springt über den faulen Hund. 
Diese Datei hat eine Zeile mehr. 

Die Eule und die Katze zogen ans Wasser. 


%sort filel > file4 (filel und file2 sortieren und in neu 
%sort file2 > file5 erzeugten Dateien ablegen) 


%cmp file1 file2 (Vergleich zweier Dateien) 
filel file2 differ char 23, line 1 


%comm file4 file5 
Mary hatte ein kleines Lamm. 


Die Katze saß auf dem Hund. 
Die Katze saß auf der Matte. 
Die Eule und die Katze zogen ans Wasser. 


Der flinke braune Fuchs springt über den faulen Hund. 


(nur in file4/nur in file5/in beiden Dateien) 


%diff file1 file2 (Unterschiede zwischen den Dateien) 
lcl (‚c’ bedeutet: Änderung erforderlich) 


<Die Katze saß auf der Matte. 
>Die Katze saß auf dem Hund. 


%sort file2 file3 > file7 
%cat file7 


Der flinke braune Fuchs springt über den faulen Hund. 
Der flinke braune Fuchs springt über den faulen Hund. 
Die Eule und die Katze zogen ans Wasser. 

Die Eule und die Katze zogen ans Wasser. 

Die Katze saß auf dem Hund. 

Die Katze saß auf der Matte. 

Diese Datei hat eine Zeile mehr. 

Mary hatte ein kleines Lamm. 

Mary hatte ein kleines Lamm. 


%unigq file? (Ausgabe ohne Wiederholungen) 

Der flinke braune Fuchs springt über den faulen Hund. 
Die Eule und die Katze zogen ans Wasser. 

Die Katze saß auf dem Hund. 

Die Katze saß auf der Matte. 

Diese Datei hat eine Zeile mehr. 

Mary hatte ein kleines Lamm. 


(alphabetisches Mischen mit Ab- 
legen des Ergebnisses in file7) 
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Richtig- 
stellung 


In der letzten Folge unseres 
Spreadsheet-Programmierprojektes 
besprachen wir die Routinen zum 
Konvertieren der Zellinhalte in 
die umgekehrte polnische Nota- 
tion. Diesmal entwickeln wir eine 
einfache Methode zum Prüfen der 
Eingaben auf Form- und Schreib- 
fehler. 


W: stellten Ihnen bereits eine Methode 
zum Schreiben der Kalkulationsformeln 
vor, bekannt als die umgekehrte polnische No- 
tation (UPN). Die Konvertierung von Formel- 
ausdrücken normaler Notation in UPN bringt 
zwei entscheidende Vorteile: Ein Ausdruck in 
UPN ist einfacher auf korrekte Schreibweise 
zu prüfen und, nach dieser Prüfung, viel einfa- 
cher zu berechnen. 

Die meisten BASIC-Programmierer kennen 
die Fehlermeldung „SYNTAX ERROR", die im- 
mer wieder aus den verschiedensten Gründen 
erscheint. In vielen Fällen liegt ein simpler 
Tippfehler vor, oder wichtige Angaben wurden 
ausgelassen. Die gleichen Fehler können dem 
Anwender bei der Dateneingabe in ein Kalku- 
lationsblatt passieren. Man kann versehentlich 
eine Klammer auslassen, oder die Anzahl der 
Operanden ist geringer als die der Operato- 
ren. Es gibt eine simple Methode zum Prüfen 
eines Ausdrucks in UPN, die sicherstellt, daß 
die richtigen Komponenten in korrekter Rei- 
henfolge vorhanden sind — also eine ord- 
nungsgemäße Formel vorliegt. 

Die Prüfung einer Formel auf etwaige Fehler 
ist eine maßgeschneiderte Aufgabe für einen 
Computer. Den Elementen, die zu einer Formel 
gehören, werden folgende Codezahlen zuge- 
ordnet: 

@ Binäre Operatoren (z.B. +,—) Codezahl —1 
@ Vergleichsoperatoren (z.B. &) Codezahl O 
@ Operanden (z.B. A2,27) Codezahl 1 
Anschließend arbeitet das Programm den 
UPN-Ausdruck Element für Element von rechts 
nach links ab und addiert dabei die Codezah- 
len zu einer Kontrollsumme. Wenn jede Zwi- 
schensumme kleiner oder gleich Null und die 
Endsumme gleich Eins ist, dann ist der Aus- 
druck fehlerfrei. 

Nach Umwandlung der normal geschriebe- 
nen Formel (I$) in die umgekehrte polnische 
Notation (P$) prüft das Unterprogramm ab 
Zeile 4700, ob der Ausdruck in P$ Schreibfeh- 


So funktioniert die Fehlerprüfung 


Zum Verdeutlichen des Prüfvorgangs nehmen 
wir ein einfaches Beispiel. Angenommen, wir 
beginnen mit dieser Formel in einer Zelle: 


(A2+A3)*(B2-—B3) 
dann lautet der UPN-Ausdruck: 
A2A3+B2B3—* 


Die folgende Übersicht zeigt, wie die Formel 
von rechts beginnend abgesucht und die Co- 
dezahlen der Elemente zu einer Zwischen- 
summe erfaßt werden: 


Beim Absuchen eines Ausdrucks in umge- 
kehrter polnischer Notation von rechts nach 
links sollte der Operator immer vor den dazu- 
gehörigen Operanden ermittelt werden. Da- 
her müßte die Zwischensumme entweder ne- 
gativ oder, nach Bearbeitung der beiden 
Operanden, gleich Null sein. Die Ausnahme 
hiervon ist die Endsumme — sie muß Eins 
sein —, weil in jedem Ausdruck ein Operand 
mehr als Operatoren vorhanden sein sollte. 
Nehmen wir an, der letzte Operator, das 
Multiplikationszeichen, fehlt. Nach unserer 
Methode finden wir den Fehler schnell: 


; Zwischen- 
Element Codezahl summe 


ler enthält. Die Routine arbeitet von links be- 
ginnend jedes Element in P$ ab und schiebt 
die jeweiligen Codezahlen (—1, 0, 1) auf einen 
Stapelspeicher, ST(). Nach Erfassen aller Ele- 
mente wertet das Programm ab Zeile 4800 den 
Stapel aus. Jede Codezahl wird vom Stapel 
STÜ) genommen und zur Kontrollvariablen P 
addiert. Falls während dieses Vorgangs der 
Wert in P Null überschreitet, bricht die Routine 
mit „ERROR BEFORE END" ab. Nach Auswer- 
tung aller Codezahlen sollte die Kontroll- 
summe gleich Eins sein. Ein anderer Wert führt 
zur Fehlermeldung „ERROR AT END“, 


Da als Operanden in einer Formel auch Zell- Ausdruck normaler Notation viel einfacher 
namen gestattet sind, wie A2 oder L14, ist es identifizierbar sind, speichert die Unterroutine 
wichtig, diese vor der Fehlerprüfung separat bei Zeile 4900 die Namen der in I$ gefundenen 
abzulegen. Weil solche Operanden in einem Operanden in ES(). 


Tann BASIC-Dialekte 
Durch eine kleine Änderung des Programms 


können Sie die Routinen zum Konvertieren in AcomB: 
die umgekehrte polnische Notation und die Beachten Sie folgende Änderungen gegenüber 
| anschließende Prüfung bereits in diesem Sta- der Commodore-64-Version: 
dium testen. Geben Sie das abgedzuckte Li | 4840 11P>1 AND C<> 1 THEN PRINT 
sting ein und ändern Sie Zeile 4010 wie folgt: TAB(0,22):"ERROR BEFORE END 
4010 LET I$="Ihre Formel in normaler No- "RETURN 
tation” ee ” 
Danach geben Sie diese Befehlszeile im di- 4860 IFP<>1 THEN PRINT TAB(0,22); 
rekten Modus ein: ERROR AT END :RETURN 


GOSUB 3000:GOSUB Schneider CPC: 
Beachten Sie folgende Änderungen gegenüber 
der Commodore-64-Version 


4000: PRINT P$ 


Sinclair Spectrum: 


AFOO>REM KUH HHREEEEEERERRRRRRRH 


4701 REM * CHECK WELL FORMED * a 
4702 REM * REVERSE POLISH * 1,22:PRINT“ 


4840 IFP>1 ANDC<>1 THEN LOCATE 
ERROR BEFORE 


4703 REM KRRRRRERREREERER ER FFERR END "RETURN 


4860 IFP<>1 THEN LOCATE 1,22:PRINT“ 
ERROR AT END ":RETURN 


4705 60 SUB 4900 

4710 LET P=0: LET SP=1: LET Li=1 
ı LET U$="" 

4720 LET P=P+1: IF P>LEN (Ps) TH 


EN 60 TO 4800 i 
4730 LET T$=P$(P) Commodore 64: 


4740 IF T$="+" OR T$="-" OR T$=" 4700 REM KrrruuuEE EEE EHER ER 
*" THEN LET S(SP)=-1: LET 6$(SP 4701 REM *%**%* CHECK FOR WELL FORMED *%** 
I=T%: LET SP=SP+1: GO TO 4720 4702 REM *** REVERSE POLISH STRING *%*%* 
4745 IF T$="/" OR T$=""*" THEN L 1703 REM Kr RR H RER 
ET S(SP)=-1: LET 6$(SP)=T$: LET 4705 GOSUB 4900 

SP=Sp+1: GO TO 4720 4710 P=0:SP=1:L1=1:TE$="" 

4747? IF Li=LP THEN GO TO 4720 4720 P=P+1:IF P>LEN(P$) THEN 4800 

4750 LET U$=E$(L1) 4730 T$=MID$(P$,P,1) 

4751 FOR Z=1 TO LEN (U$) 4740 IF T$="+" OR T$="-" OR T$="*" THEN 
4752 IF U$(Z)=" " THEN 60 TO 47 ST(SP)=-1:6$(SP)=T$:SP=SP+1:60TO 4720 

54 4745 IF T$="/" OR T$=""" THEN ST(SP)=-1: 
4753 NEXT Z 6$(SP)=T$:SP=SP+1:60T0O 4720 

4754 LET U$=U$(1 TO 2-1) 4746 IF T$="&" THEN ST(SP)=0:6$(SP)=T$:S 
4760 IF U$<>P$CP TO P-I+LEN (U$) P=SP+1:60T0 4720 


) THEN LET U$="": GO TO 4720 


4770 
4775 
4780 
4785 
4790 
4800 
4810 
4820 
4830 
4840 
AT 
URN 
4850 
4860 


LET S(SP)=1: LET 6$(SP)=U$ 
LET SP=SP+1 
EFRLISERITTNENGELEN EI RT 
LET U$="" 

GO TO 4720 

REM *%*%* PROCESS STACK #**** 
LET P=S(SP) 

FOR C=SP-1 TO 1 STEP -1 

LET P=P+S(C) 

IF PO AND C<>1 THEN PRINT 
20,0;"ERROR BEFORE END": RET 


NEXT C 
IF P<£>1 THEN PRINT "ERROR 


AT END ": RETURN 


4870 
4700 
DS*%* 
4705 
" : L 
4710 
EN 

4720 
4930 
a." [0] 
4740 
ne 
4950 
4760 
4770 
4780 
4990 
4995 
4997 
4798 


LET CP=SP-1:. RETURN 

REM *%** MAKE LIST OF OPREAN 
*** 

LET P=0: LET LP=1: LET T$=" 
ET U$= nu 

LET P=P+1: IF P>LEN (1%) TH 
GO TO 4995 

LET T$=1$(P) 

IF T$="+" OR T$="-" OR T$=" 
R T$="&" THEN 60 TO 4960 

IF T$="/" OR T$=""" OR T$=" 
R T$=")" THEN GO TO 4960 
LET Us=U$+T$: GO TO 4910 

IF Ug="" THEN GO TO 4910 

LET E$(LP)=U$: LET LP=LP+1 

LET Us="" 

60 TO 4910 

IF U$="" THEN RETURN 

LET E$(LP)=U$: LET LP=LP+1 

RETURN 


4747 IF Li=LP THEN 4720 

4750 LET TE$=E$(L1) 

4760 IF TE$<>MID$CP$,P,LEN(TE$)) THEN TE 

$="":60T0 4720 

4770 LET ST(SP)=1:LET G$(SP)=TE$ 

4775 LET SP=SP+1 

4780 LET Li=Li-(Li<LP):TES="" 

4790 G0TO 4720 

4800 REM *** PROCESS STACK *** 

4810 LET P=ST(SP) 

4820 FOR C=SP-1 TO 1 STEP -1 

4830 LET P=P+ST(C) 

4840 IF P>0 AND C<>1 THEN GOSUB 1950 :PRI 

NT" ERROR BEFORE END ":RETURN 

4850 NEXT C 

4860 IF P<>1 THEN GOSUB 1950:PRINT " 
ERROR AT END "RETURN 

4870 LET CP=SP-1:RETURN 

4700 REM ** MAKE LIST OPERANDS IN I$ ** 

4905 LET P=0:LET LP=1:LET T$="":LET TE$= 

4710 FOR K=1 TO 20:LET E$CK)="":NEXT K 

4915 LET P=P+1:IF P>LEN(I$) THEN 4995 

4920 LET T$=MID$(I$,P,1) 

4930 IF T$="+" OR T$="-" OR T$="*" OR T$ 

="&" THEN 4960 

4940 IF T$="/" OR T$="*" OR T$="(" OR T$ 

=")" THEN 4960 

4950 LET TE$=TE$+T$:60T0 4915 

4960 IF TE$="" THEN 4915 

4970 LET E$(LP)=TE$:LP=LP+1 

4780 LET TE$="" 

4990 G0T0 4915 

4995 IF TE$="" THEN RETURN 

4996 LET E${LP)=TE$:LET LP=LP+1 

4997 RETURN 


2221 


— 
> 


2222 


Bildschirmtricks 


Das Schneider-Betriebssystem 
unterstützt eine Textanzeige, die 
völlig von der Grafikdarstellung 
getrennt ist. Wir untersuchen, 
welche Bildschirmsteuerungen 
interessant sind und zeigen drei 
Module, die sich in eigene 
Programme einbauen lassen. 


Nützliche Adressen 


Routine Adresse Anmerkung 

TXT_WIN_ENABLE BB6 H=links, D= 
rechts, L — 
oben, E = un- 
ten 


TXT_GET_WINDOW BB69 Ergebnis in 
den Registern 
wie oben 

TXT_CLEAR_WINDOW BB6C Löscht Text- 
fenster des 
aktuellen 
Stroms 

TXT_SWAP_STREAMS BBB7_ InBundC 
stehen beide 
Stromnum- 
mern 

TXT_SIR_SELECT BBB4 Angewählte 
Ströme in Re- 
gister A 

TXT_OUTPUT BB5A Zeichen steht 
in Register A 

TXT_WR_CHAR BB5D Zeichen steht 
in Register A 

TXT_RD_CHAR BB60 Liest beim 
Cursor Zei- 
chen und 
speichert es in 
Reg. A 

TXT_GET_CURSOR BB78 H= Spalte, L 
= Zeile 

GRA_SET_ORIGIN BBC9 Aufruf mit DE 
=X%\,HL=Y 
(Koordinaten) 

GRA_SET_WIDTH BBCF Aufruf mit DE 
= links, HL = 
rechts (Koor- 
dinaten) 

GRA_SET_HEIGHT BBD2 Aufruf mit DE 
= oben, HL = 
unten (Koordi- 
naten) 

SCR_SET._BASE BCO8 InA steht Hi- 
Byte der Ba- 
sisadresse 

SCR_SET_MODE BCOE InA steht Mo- 
dusnummer ((, 
l und 2) 


Wichtig: Für den Einsatz dieser Routinen sollten 
Sie sich unbedingt die „Amstrad Firmware Specifi- 
cation“ besorgen. 


ie Textanzeige steuert unter anderem das 

Lesen und Anzeigen von Zeichen, den 
Cursor und Fenster. Die Firmware von Schnei- 
der kann bis zu acht Fenster auf den Schirm 
bringen, jedes mit eigenen PEN- und PAPER- 
Farben, eigenem Cursor, transparentem oder 
undurchsichtigem Hintergrund und der Mög- 
lichkeit, Grafikzeichen darzustellen. Die Größe 
des Fensters wird mit TXT_WIN_ENABLE ge- 
setzt, mit TXT_GET_WINDOW abgefragt und 
über TXT_CLEAR_WINDOW gelöscht. 

Sie können die Parameter zweier „Ströme“ 
mit TXT_SWAP_STREAMS auch gegeneinan- 
der austauschen. Die meisten Firmwarerouti- 
nen sprechen den jeweils aktiven Strom an, 
wobei TXT_STR_SELECT festlegt, welcher 
Strom aktiv ist. 

Jedes Zeichen wird in einem Pixelquadrat 
von acht mal acht Pixeln ausgegeben. Wir ha- 
ben die wichtigsten Anzeigeroutinen in der ne- 
benstehenden Tabelle aufgeführt. 

Die Bildschirmzeichen grenzen normaler- 
weise aneinander und erscheinen an der aktu- 
ellen Cursorposition. Über einen Spezialmo- 
dus (Anwahl mit TXT_SET_GRAPHIC) können 
sie aber auch an der Position des Grafikcur- 
sors geplottet werden. Damit lassen sich Texte 
überlagern und an beliebigen Bildschirmposi- 
tionen darstellen. 

Die Hauptroutine, TXT_OUTPUT, sichert zu- 
nächst alle Register und ruft dann TXT_OUT_ 
ACTION auf. Die Routine, auf die dieses Modul 
zeigt, filtert die Steuerzeichen aus, bevor die 
darstellbaren Zeichen an TXT_WR_CHAR (bei 
grafischer Textausgabe GRA_WR_CHAR) 
übergeben werden. Da TXT_OUT_ACTION ge- 
patcht werden kann, lassen sich auch andere 
Interpretationen der Steuercodes oder der Zei- 
chendarstellung einsetzen. 


Aktuelle Fenster 


Beim Textbildschirm zeigt der Cursor auf die 
Position, an der das nächste Zeichen erschei- 
nen soll. Einige Routinen können den Textcur- 
sor abschalten und andere Cursor an belie- 
bige Bildschirmpositionen stellen oder 
löschen. Die wichtigsten dieser Routinen ste- 
hen ebenfalls in der Tabelle. 

Mit dem Tabulatorprogramm können Sie Ta- 
bulatoren in gleichmäßigen Abständen setzen. 
Dabei wird zunächst mit TXT_GET_WINDOW 
die Größe des aktuellen Fensters festgestellt. 
Die Nummer der rechts außen liegenden 
Spalte befindet sich danach im Register D. Das 
Register wird umgewandelt und zeigt nun auf 
eine Position rechts dieser Spalte. Als nächstes 
wird mit TXT_GET_CURSOR die aktuelle Cur- 
sorposition geholt. Register H enthält nun die 


Cursorspalte, die dann mitjeder möglichen Ta- 
bulatorposition verglichen wird, bis die näch- 
ste Tabulatoreinstellung gefunden ist. Nach- 
dem diese Position bekannt ist, stellt ein Test 
sicher, daß das abzubildende Zeichenfeld 
auch über genug Platz verfügt. Ist dies der Fall, 
wird die Cursorspalte auf die nächste Tabula- 
toreinstellung gesetzt, wenn nicht, wird durch 
die Angabe einer Spalte außerhalb des aktuel- 
len Fensters veranlaßt, daß der Cursor sich auf 
die darunterliegende Zeile bewegt. 


Pixelweise 


Jedem ASCII-Code von Obis 255 ist eine Matrix 
mit dem Bitmuster des jeweiligen Zeichens zu- 
geordnet. Die Matrix besteht aus acht Bytes, 
wobei jedes Byte eine Zeile des Zeichens dar- 
stellt. Das Bild zeigt, wie die Zeichenmatrix für 
CHRS$224 gespeichert ist. 

Die Matrizen können über vier Firmwarerou- 
tinen festgelegt oder umdefiniert werden. Da 
alle Matrizen für die ASCII-Zeichen zwischen O 
und 247 standardmäßig im unteren ROM-Be- 
reich untergebracht sind, lassen sie sich nicht 
beliebig umdefinieren. Die Zeichen 248 bis 
255 werden automatisch ins RAM kopiert, um 
dort umgestellt zu werden. Mit der Routine 
TXT_SET_M_TABLE können Sie jedoch eine 
beliebige Anzahl Zeichen zwischen dem an- 
gegebenen Code und 255 umdefinieren und 
so einen völlig neuen Zeichensatz entwerfen. 

Die Matrizen der umdefinierbaren Zeichen 
können Sie entweder mit einem Anwenderpro- 
gramm verändern oder über die Routine TXT_ 
SET_MATRIX, die die acht Bytes, auf die das 
Registerpaar HL zeigt, in eine dem jeweiligen 
Zeichen entsprechende Matrix kopiert. 

Mit TXT_GET_MATRIX können Sie die 
Adresse einer Zeichenmatrix feststellen. TXT_ 
GET_M_TABLE holt das erste Zeichen und die 
Adresse einer Zeichentabelle. 

Unser „Spin Print Programm“ arbeitet mit 
TXT_GET_MATRIX und TXT_SET_MATRIX, um 
Zeichen in eine von vier Richtungen zu rotie- 
ren. Dabei wird Zeichen 248 auf die Matrix des 
darzustellenden Zeichens umdefiniert, dann 
die Matrix von Zeichen 248 rotiert und schließ- 
lich mit TXT_OUTPUT dargestellt. 

Der Grafikbildschirm läßt sich pixelweise 
steuern. Er arbeitet mit einem Grafikfenster, in 
dem die Vorder- und Hintergrundfarben unab- 
hängig von denen des Textschirms gesetzt 
werden können. 

Es gibt drei Koordinatensysteme, mit denen 
sich Pixelpositionen festlegen lassen. In Mo- 
dus 2 beträgt die Auflösung 640 mal 200 
Punkte, in Modus 1 320 mal 200 und in Modus O 
160 mal 200. Diese Daten werden „Basiskoordi- 
naten“ genannt. Jeder Bildschirmpunkt hat 
eine eindeutige Adresse, über die er unabhän- 
gig vom aktuellen Modus angesprochen wer- 
den kann. Die Modi bestimmen dabei nur, wie- 
viel Platz ein bestimmtes Pixel beim Setzen 


eines Punktes belegt. Modus 2 setzt ein Pixel, 
Modus 1 zwei und Modus O vier. 

Obwohl der Bildschirm vertikal nur eine Auf- 
lösung von 200 Punkten besitzt, arbeitet die 
Firmware mit 400 Punkten, um das Verhältnis 
2:1 beizubehalten. Jeder vertikale Punkt be- 
zieht sich daher nur auf ein halbes Pixel, wobei 


Zugeordnete Pixel 


Bitnummer 


"onaanaanan 
aaa 
FAR a ca ca EN NENNEN 


Zeichenmatrix 
Bitnummer 


65 4 


Bytenummer der 
Matrixtabelle 


CE | 


Die Bytes des Bild- 
schirmspeichers enthal- 
ten je nach Anzeigemo- 
dus die Daten für bis zu 
acht Pixel. Das Bild 
zeigt, welche Bits sich 
in den unterschied- 
lichen Modi auf welche 
Pixel beziehen. 


Oberste 
Zeile 


+ BR IE ER I EN 
4 mm | mE 
» BE IHK I I PZG P 
Zi _ HRREM_M 
2 | mmmm | 
s FA ER HA a RE 


au | | | | | m 


| Bit steht auf Null 
En Bit steht auf Eins 


die zwei Pixelhälften gleichzeitig gesetzt wer- 
den. So beziehen sich beispielsweise die bei- 
den Pixelzeilen 10 und 11 auf die gleiche Bild- 
schirmzeile. Durch dieses Verfahren hat jeder 
Bildschirmmodus eine Auflösung von 640 mal 
400 Pixeln. 

Die Fenstergröße wird mit GRA_SET_ 
ORIGIN, GRA_SET_WIDTH und GRA_SET_ 
HEIGHT gesetzt und mit GRA_GET_ORIGIN, 
GRA_GET_W_WIDTH und GRA_GET_W_ 
HEIGHT abgefragt. Nach der Initialisierung 
eines Fensters beziehen sich die sogenannten 
„Anwender-Koordinaten“ auf die neuen Daten. 
Der Grafikcursor läßt sich mit zwei Methoden 
positionieren: Beim „absoluten“ Verfahren wird 
der Cursor auf die angegebene Anwenderko- 
ordinate gesetzt, während die „relative“ Me- 
thode den Cursor relativ zu seiner aktuellen 


Unterste 
Zeile 


Zeichen werden in 
Acht-Bit-Matrizen ge- 
speichert, in denen die 
einzelnen Bytes je eine 
Pixelzeile des Zeichens 
darstellen. Gesetzte 
Bits zeigen an, daß ein 
Pixel in der aktuellen 
PEN-Farbe dargestellt 
werden soll. Auf Null 
stehende Bits geben die 
PAPER-(Hintergrund-) 
Farbe an. Unser Bild 
zeigt die Matrix für das 
ASCII-Zeichen 244. 
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Position verschiebt. Die Tabelle zeigt die Posi- 
tioniermethode. 

Auf dem Grafikschirm lassen sich Pixel auf 
drei Arten plotten; einzeln, als Zeichen oder als 
Linien. Alle Plotroutinen können absolute 
Punkte oder Punkte relativ zur aktuellen Cur- 
sorposition anzeigen. Der Grafikcursor steht 
immer links von dem zuletzt geplotteten Punkt 
— außer wenn beim Plotten eines Zeichens die 
horizontale Position auf den Anfang des näch- 
sten Zeichens verschoben und die vertikale 
Position beibehalten wird. 

Das „Bildschirmpaket" ist ein Firmwarebe- 
reich, der maschinennahen Zugang zum Bild- 
schirm bietet. Er steuert die Bildschirmadres- 
sierung, das Setzen von Farben und Modi, die 
Codierung und Decodierung, das Scrollen und 
vieles andere. 

Der Bildschirmspeicher ist ein RAM-Block 
von 16 KByte, der auf jeder der vier 16K-Gren- 
zen des Speichers anfangen kann. Sie sollten 
aber nur die Blöcke mit den Anfangsadressen 
$4000 und $CO000 nehmen, da die anderen bei- 
den Blöcke Firmwarebereiche enthalten und 
überschrieben werden könnten. Der Bild- 
schirm kann mit SCR_SET_BASE zwischen 
zwei Speichern umgeschaltet werden. Mit die- 
ser Technik läßt sich ein Bildschirminhalt an- 
zeigen, während der andere vorbereitet wird. 
Durch Umschalten wechselt die Anzeige. 

Jedes für den Bildschirm eingesetzte 
Speicherbyte enthält die Informationen für 
acht Anzeigepositionen. Dies mag je nach 
dem (mit SCR_SET_MODE gesetzten) Modus 


zwei, vier oder acht Pixeln entsprechen. 

Das Bild mit den Pixelzuordnungen zeigt, 
wie die Bits eines Bildschirmbytes in verschie- 
denen Modi die Pixel festlegen. Zwar sieht das 
System auf den ersten Blick kompliziert aus, 
doch erscheinen durch die Rotation der Bytes 
automatisch die Bits für das nächste Pixel. Für 
das Setzen eines Pixels in einem Byte brau- 
chen Sie nur über eine Maske das links außen 
liegende Bit zu setzen und das Byte so lange 
zu rotieren, bis das Bit an der gewünschten Po- 
sition steht. 


Maskenhaft 


Den schnellsten Bildschirmzugriff haben Sie, 
wenn Sie den Bildschirmspeicher direkt an- 
sprechen und nicht mit dem Text- oder Grafik- 
schirm arbeiten. Hier bietet das Bildschirmpa- 
ket etliche Routinen, die diese Aufgabe er- 
leichtern. 

Unser „Schnellplot-Programm“ zeigt, wie mit 
diesen Routinen Punkte auf den Schirm ge- 
bracht werden. Das Programm darf nicht mit 
einem Grafikschirm eingesetzt werden, der 
mit Fenstern arbeitet. 

Die Routine fragt zunächst nach der Adresse 
des Bytes mit den Daten für die angegebene 
Bildschirmposition und dann nach der Maske, 
mit der alle Pixel eines Bytes mit der angege- 
benen Farbe definiert werden. Die Bearbei- 
tung der Maske setzt die gewünschte Position 
zunächst auf INK Null und dann auf die neue 
INK-Farbe. 


Tabulatoren 


Das Programm bewegt den Textcursor des aktu- 
ellen Fensters in die nächste Tabulatorenspalte. 
Es gibt keine Einsprungsbedingungen. Die Rou- 
tine sichert alle Register. 


tab: equ 15 ; tab stop column 
get.windon: equ #bb69 ; TXT_GET_WINDOW 
get.cursor: equ #bb78 ; TXT_GET_CUSOR 
set.column: equ #bb6f  ; TXT_SET_COLUMN 
’ 
push af 
push hl 
push de 
call get.window ; get window size 
inc d ; logical rt col 
inc d ; right col Limit 
call get.cursor ; get cursor posn 
ld a, 1 ; start of line 
[4 
Loop add tab ; get next tab col 
cp h 
jp P, loop 
‘ 
Ld h,a ; save it 
add tab ; room for new col? 
cp d ; test for Limit 
jr nc, setcol ; no,force newline 
ld a, h ; get back new col 
setcol: 
call set.column ; set new column 
pop de 
pop hl 
pop af 
ret 2 
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Spin Print 


Das folgende Programm gibt ein Zeichen aus, 
dessen Zeichenmatrix um einen von vier Win- 
keln rotiert wurde. Dafür wird zunächst die 
Adresse der Zeichenmatrix festgestellt und Zei- 
chen 248 (normalerweise der erste Eintrag in 
der Tabelle der anwenderdefinierten Zeichen) 


umdefiniert. 

; 

; Entry: IX+0 = Character to display 

= IX+2 = Desired angle 1..4 

= 1 = upwards 

8 2 = backwards 

. 3 = downwards 

“ 4 = normal 

; Exit: 

- Carry True - Character printed 

; Carry False - Failed to print char 

- AF, BC, DE, HL corrupt 

; 

txt.get.matrix: equ #bba5 

txt.set.matrix: equ #bba8 

txt.output: equ #bb5a 

; 
org 8000h 

; 

start: (Id a, (ix+0) ; read character 
call txt.get.matrix ; get matrix addr 

; 

; Copy matrix into user definable character 128 

; then find its address 

; 
ld a, 248 ; char to redefine 
call txt.set.matrix ; redefine matrix 
ret nc ; abort if unable 

; 
ld a, 248 ; char to rotate 
call txt.get.matrix ; find matrix 


mn N N NN NN 


Se 


rer 


Rotate the character matrix anti-clockwise 
in 90 degrees steps 


ld (toprow), hl ; save address 
ld b, (ix+2) ; read angle 
op3: ld d, 8 ; loop for 8 rows 
D2: ld e, 8 ; loop for 8 bits 
opl: Pic (hl) ; next bit in c 
rla ; save in new roW 
inc hl ; go to next row 
dec e 
jr nz, Lop1 ; go for next row 
push af ; stack new row 
dec d 
ld hl, (toprow) ; go for next bit 
jr nz, Llop2 


Loop to unstack the new matrix 


ld e, 8 
Lop4: pop af ; get next row 
ld (hl), a ; move to matrix 
inc h ; go to next row 
dec e 
jr nz, lop4 
; 
ld hl, (toprow) 
djnz Lop3 ; again if needed 
; 
; Finally display the character on screen 
r 
ld a, 248 ; char to print 
call txt.output 
ret ; finished 
; 
toprow: defw 0 ; start of matrix 


Text - einmal andersherum 

Mit unserem Programm zur Zeichenrotation können 
Sie Text vertikal, horizontal oder auch auf dem 
Kopf stehend ausgeben. 


Ein Schnell-Plot-System 


Diese Routine funktioniert in allen Bildschirm- 
modi. Per Firmware steuert sie eine Speicher- 
stelle mit Informationen über den Bildschirm- 
punkt an und stellt so das neue Pixel dar. 


; Entry: HL contains the physical Y co-ordinate 
5 (0-199) 
ie DE contains the physical X co-ordinate 
- (0-639) 
a A contains the ink to set the point to 
; 
. Exit} All registers preserved 
; 
dotpos: equ #bc1d ; SCR_DOT_POSITON 
encode: equ #bc2c ; SCR_INK_ENCODE 
; 
plotter: 
push de ; save the registers 
push hl 
push bc 
push af 
; 
call dotpos ; find the memory byte 
pop af ; get the ink back in a 
push af 
; 
; HL now contains the address of the byte 
; and C contains the mask required to set only the 
; required pixel on 
; 
call encode ; find the ink mask 
; 
; The mask to set all pixels to new ink is in a 
; 
and c ; only want this pixel 
; 
Ld b,a ; save the new ink number 
Ld d, (hl) ; get the current setting 
ld a,c ; get the pixel mask 
cm a ; invert it 
and d ; set the pixel to ink O 
; 
or b ; mask in the new colour 
ld (hl),a ; and store it out 
’ 
pop af ; restore the registers 
pop bc a 
pop hl 
pop de 
z 
ret 


Ss 
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Programmier-Service 


Diskettenmonitor 


Der Diskettenmonitor ermöglicht 
Ihnen den direkten Zugriff auf 
Diskettendateien. Sie können da- 
mit Datensätze ändern oder auch 
Daten retten, die bei einem Ab- 
sturz des Rechners verlorenge- 
gangen sind. 


hr Computer steuert das Lesen 

und Schreiben von Datensätzen 
über das „disk operating system“ 
(DOS), manchmal auch „disk filing 
system“ (DFS) genannt. Als Benutzer 
müssen Sie sich normalerweise 
nicht darum kümmern, wie oder wo 
Daten auf eine Floppy geschrieben 
werden — diese Aufgabe übernimmt 
das DOS/DFS für Sie. 

Darüber hinaus bietet das DOS/ 
DFS eine Möglichkeit, auf be- 
stimmte Teile der Diskette zuzugrei- 
fen. Dadurch können Sie, ohne die 
Datei in Ihren Rechner zu laden, ein- 
zelne Daten auswählen, manipulie- 
ren oder ergänzen. 

Sie können diese Form des „di- 
rekten Zugriffs“ zum Ändern des Di- 
rectory, von Namen, Daten und Ver- 
knüpfungszeigern nutzen. Auch ver- 
lorene Informationen lassen sich da- 
mit wieder herstellen. Der letzte 
Punkt ist vielleicht am nützlichsten. 
Direktzugriff ermöglicht nicht nur, 
gelöschte Datensätze zu restaurie- 
ren und offene Datensätze zu schlie- 
Ben, Sie können auch zerstörte Sek- 
torzeiger so einrichten, daß die Sek- 
torfolge einer Datei wieder stimmt. 

Der Direktzugnff auf einzelne In- 
formations-„Blöcke“ läßt sich am be- 
sten mit einem Monitor vergleichen, 
der Teile des Speichers ausgibt 
oder ändert. Im Betrieb hat unser 
Programm große Ahnlichkeit mit 
einem Monitorprogramm. 

Bevor man auf bestimmte Spuren 
oder Sektoren einer Diskette zugrei- 
fen kann, muß man ihre Position ge- 
nau kennen. Das „Format“ einer Dis- 
kette ist gewissermaßen der erfor- 
derliche Lageplan. Erzeugt wird er 
durch die Formatierungsroutinen im 
DOS/DFS. 

In der Literatur wird bei der Be- 
schreibung des Direktzugnffs durch- 
gehend die hexadezimale Notation 
benutzt — auch wir halten uns daran. 

Um mit dem Monitor zu arbeiten, 
brauchen Sie eine Beschreibung 
des Diskettenformats. Die Formate 


der einzelnen Rechner finden Sie 
weiter hinten im Artikel. Machen Sie 
unbedingt eine Sicherheitskopie, 
wenn die bearbeitete Diskette wert- 
volle Informationen enthält! 

Eine zweite Bemerkung mag 
überflüssig scheinen, aber: Sie kön- 
nen keine Daten finden, die nicht 
mehr da sind. Eine verlorene oder 
gelöschte Datei zum Beispiel kön- 
nen Sie nur dann wieder herstellen, 
wenn die Daten vorher nicht über- 
schrieben worden sind. Der Spei- 
cherplatz einer Datei wird nämlich 
beim Löschen für die erneute Nut- 
zung freigegeben. Ist danach ein 
Schreibzugriff vorgenommen wor- 
den, können die alten Daten unwie- 
derbringlich verloren sein. Sie könn- 
ten dann versuchen, wenigstens 
einen Teil zu retten, indem sie die 
Dateizeiger auf die noch nicht über- 
schriebenen Sektoren setzen. 


Commodore 


Commodore 64 (und VC 20) arbei- 
ten mit dem Laufwerk 1541. Das 
Laufwerk hat ein eingebautes Be- 
triebssystem, zählt also zu den „in- 
telligenten“ Geräten. Sie können 
den Diskettenmonitor zwar auch für 
andere CBM-Laufwerke benutzen, 
Informationen über Spuren und Sek- 
toren gelten aber nur für die 184ler. 

Bei der 1541 ist die Diskette in 35 
Spuren eingeteilt. Je nach Lage be- 
steht eine Spur aus 17 bis 21 Sekto- 
ren. Es gibt insgesamt 683 Sektoren, 
von denen allerdings höchstens 664 
benutzt werden können. Jeder Sek- 
tor nimmt 256 Bytes auf. 

Das „Directory“ (Inhaltsverzeich- 
nis) befindet sich auf Spur 18. Ein 
Zugnff darauf erfolgt üblicherweise 
durch LOAD"S$",8 und LIST. 

Um Fehler im Directory zu korri- 
gieren, werden Sie mit DMON sehr 
häufig auf Spur 18 zugreifen. Ein ty- 
pisches „Rettungsprogramm" stellt 
gelöschte Datensätze wieder her, in- 
dem es die Dateizeiger korrigiert 
und dabei beschädigte Bereiche der 
Diskette überspringt. 

Am Anfang des Directory auf Spur 
18 steht die „block availability map“ 
(BAM — Tabelle der verfügbaren 
Blöcke). In der BAM wird festgehal- 
ten, welche Blöcke zur Verfügung 
stehen. Sie wird nach jedem Zugriff 
auf den aktuellen Stand gebracht. 


Die BAM ist folgendermaßen auf- 


gebaut: 

SPUR 18 ($12), SEKTOR O 

Byte Inhalt 

$00—$01 Spur und Sektor des er- 
sten Directory-Blocks 

$02 $41 (ASCI A zur Kenn- 
zeichnung des 1541-For- 
mats) 

$03 Null (wird nicht benutzt) 

$04—$8F  BitweisesVerzeichnis 
der freien (1) bzw. be- 
legten (0) Blöcke 

$90—$FF KOPF DES DIRECTORY 

Format 

$90—$A1 Name der Diskette (mit 
Shift Space aufgefüllt — 
SAO) 

$A2—$A3 ID-Kennung 

$A4 Shift Space — $SAO 

$A5—$A6 Format-Typ ($32, $41— 
2A in ASCII) 

FAT—$AA Shift Space — SAO 

$AB—$FF Nicht benutzt ($00) bis 


auf den Text „BLOCKS 
FREE“ 


Das eigentliche Directory beginnt 
bei Spur 18, Sektor 1. Je nach Anzahl 
der Dateien können weitere Sekto- 
ren belegt werden. Dafür steht der 
Rest von Spur 18 zur Verfügung. Je- 
der Sektor kann bis zu acht Einträge 
aufnehmen. 


SPUR 18(512), SEKTOR 1 

Byte Inhalte 

$00—$01 Spur und Sektor des 
nächsten Directory- 
Blocks 

$02—$1F DETAILS DER ERSTEN 
DATEI 

Format 

$02 Dateityp (s. u.) 

$03—$04 Spur und Sektor des er- 
sten Datei-Blocks 

$05—$14 Name der ersten Datei 
(aufgefüllt mit Shift 
Space — SAO) 

$15—$16 Nur für REL-Dateien be- 
nutzt (Spur und Sektor 
des ersten Neben- 
blocks) 

$17 Datensatzlänge der 
REL-Datei. 
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$18—$1B 
$1C—$1D 


Nicht benutzt 

Spur und Sektor der 
neuen Datei beim Spei- 
chern/Ersetzen-Befehl 
(@) 

Anzahl der Blöcke (nie- 
der- und höherwertiges 
Byte) 

Shift Space — $AO 
Details der zweiten Da- 
tei 

(Format wie bei der ersten Datei) 
Auf diese Art können bis zu acht 
Einträge in einem Block aufgenom- 
men werden. Sind es weniger, dann 
wird der Rest des Blocks mit Nullen 
aufgefüllt. 

Die beiden Bytes unmittelbar vor 
dem Dateinamen zeigen auf deren 
ersten Datenblock. Für die erste Da- 
tei sind das die Bytes $03 und $04. 
Ihre Werte (in hex) bezeichnen Spur 
und Sektor. $11 $01 etwa würde auf 
Spur 17 Sektor 1 verweisen. Der Auf- 
bau eines typischen Datenblocks 
von 256 Bytes Länge ist sehr einfach. 
Die ersten beiden Bytes verweisen 
auf den nächsten Block, der Rest be- 
steht aus Daten. Der letzte Block 
einer Datei beginnt mit $00, wäh- 
rend das zweite Byte die Anzahl der 
belegten Bytes enthält. 


$1E—$1F 


$20—$21 
$22—$3F 


10 PRINT“[Q 4 :POKE53280,0:POKE53281, 
0:G0SUB2490 

20 DIMA(255),$(35):HX$ = “0123456789 
ABCDEF”:SE=1:TR=18 

30 FORI=1T017:$(l) = 21:NEXT 

40 FORI=18T024:$(l) =19:NEXT 

50 FORI=25T030:$(l) = 18:NEXT 

60 FORI= 31T035:$(l) =17:NEXT 

70 PRINT:GOSUB1000: PRINT“ 1” 

80 A$=LEFT$(T$,1) 

90 IFA$ = “P”THENGOSUB1200:G0T070 

109 IFA$ = “X”THENPRINT“BASIC”:END 

110 IFA$ = “$”THENGOSUB1500:G0T070 

120 IFA$ > = “W”ANDA$ < =““9”THEN 
GOSUB1609:G60T070 

130 IFA$ = “D”THENGOSUB650:G0T079 

149 IFA$ = “S”THENGOSUB1700:G0T070 

159 IFA$ = “E”THENGOSUB1800:G0T079 

170 IFA$ = “R”THENGOSUB1900:G0T070 

180 IFA$ = “W”THENGOSUB2109:G60T070 

199 IFA$ = “C”THENGOSUB2300:G0T079 

200 IFA$ = ““H”THENGOSUB2400:G0T070 

210 PRINT“.?UC?”:GOTO7O 

650 OPEN15,8,15:0PEN8,8,8,° #”:PRINT 
#15,“U1:”8;0;18;0:CLOSE15:CLOSE8 

655 OPEN1,8,2,‘‘$” 

660 FORX=1T0141:GET #1,A$:NEXT 
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670 T$(9) = “DELETED”:T$(1) = “SEO”: 
T$(2)= “PROGRAM”: T$(3) = “USER”: 
T$(4) = “RELATIVE” 

680 J=17:G0SUB949 

690 N$=B$ 

700 J=2 

710 GOSUB94O 

720 1$=B$ 

730 GET#1,A$ 

740 J=2 

750 GOSUB949 

760 0$=B$ 

770 FORL=1T088 

780 GET#1,A$ 

790 NEXT 

800 PRINT“DISK NAME:”N$:PRINT“ 
OOODDIDI$:PRINTOOO 
D0S:”0$“ 

810 PRINT“LENGTH”,“TYPE”,“NAMEI” 

820 FORP=1T08 

830 GET#1,T$,A$,A$ 

849 IFT$ = “”THENT$=CHR$(128) 

850 J=15 

860 GOSUB94D 

870 N$=B$ 

880 GET #1,A$,A$,A$,A$,A$,A$,A$,A$,A$, 
L$,H$ 

890 L=ASC(L$ + CHR$(D)) + 256°ASC 
(H$ + CHR$(B)):IFL=OTHEN930 

900 IFSTTHENCLOSE1:RETURN 

910 PRINTL’256,T$(ASC(T$) — 128),N$ 

920 IFP<8THENGET #1,A$,A$ 

930 NEXT:GOT0820 

949 B$=““" 

950 FORL=OTOJ 

960 GET#1,A$ 

970 IFA$ < > CHR$(96)THENIFA$ < >CHR$ 
(160)THENB$=B$ + A$ 

980 NEXT:RETURN 

1000 T$ =": PRINT“.”; 

1010 PRINT“ JEW 5:GETAS:IFAS =” 
THEN1010 

1020 IFA$=CHR$(13)THEN1100 

1030 IFA$=CHR$(20)THEN1110 

1040 IFLEN(T$) > 10THEN1910 

1050 IFA$ =“ I”ORA$ = “$”THEN1090 

1060 IFA$ < “O”THEN1010 

1070 IFA$> “Z”THEN1910 

1090 T$=T$ + A$:PRINTA$;:GOTO1010 

1100 IFT$< > “”THENRETURN 

1110 IFT$=“”THEN1010 

1120 T$=LEFT$(T$,LEN(T$) — 1) 

1130 PRINTA$;:GOT01010 

1200 REM PRINT ROUTINE 

1210 X$ = MID$(T$,3,2):GOSUB1300:5 =X 

1220 X$ = MID$(T$,6,2):G0SUB1300:F=X 

1230 FORI=STOFSTEPY 

1240 X=1:GOSUB1400:PRINTH$“:”;:FOR 
T=9TO8:IFI+ T> 255THENPRINT“"*": 
RETURN 


1250 X=A(l + T):GOSUB1400:PRINTH$ 
“J”5:NEXT 

1260 FORT=OT08:A=A(l-+HT):IFA<320R 
A>91THENA=32 

1270 PRINTCHR$(A);:NEXT:PRINT:NEXT: 
RETURN 

1300 A$=LEFT$(X$,1);B$=RIGHT$(X$,1): 
FORI=1T016 

1310 IFA$ = MID$(HX$,1,1)THENH = 
(1-1)"16 

1320 IFB$ = MID$(HX$,1,1)THENL= 
(1-1) 

1330 NEXT:X=H+L:RETURN 

1400 H=INT(X/16):L= (X —H’16) 

1410 H$ = MID$(HX$,H + 1,1) + MID$(HXS, 
L+1,1):RETURN 

1500 IFLEN(T$) =5THEN1540 

1505 IFLEN(T$) < > 3THENPRINT“.2SX?”;; 
RETURN 

1510 X$=RIGHT$(T$,2) 

1520 GOSUB1300 

1530 PRINT“.DEC”X:RETURN 

1549 X$ = RIGHT$(T$,2):GOSUB1300 

1550 M=X:X$ = MID$(T$,2,2):G0SUB1300: 
PRINT“.DEC”256°X + M:RETURN 

1600 V=VAL(T$):IFV>655350RV <OTHEN 
PRINT“.2?”;:RETURN 

1610 M=INT(V/256) 

1620 N=V—M"256 

1630 X= M:GOSUB1400:A$=H$:X=N: 
GOSUB1400:A$=A$ + H$ 

1649 PRINT“.HEXI”A$:RETURN 

1700 PRINT“LAST TRACK:$”;:X=TR:GOSUB 
1400:PRINTH$ 

1710 PRINT“ I DI DISECTOR:$”;:X=SE: 
GOSUB1400:PRINTH$ 

1720 RETURN 

1800 X$ = MID$(T$,3,2) 

1810 GOSUB1300 

1820 A=X:X$ = MID$(T$,6,2):G0SUB1309: 
B=X 

1830 A(A) = B:PRINT“OK”:RETURN 

1900 IFLEN(T$) = 1THENGOSUB200P: 
RETURN 

1910 X$=MID$(T$,3,2):GOSUB1300:1FX <1 
ORX > 35THENPRINT“.?ITP”;:RETURN 

1920 A=X:X$= MID$(T$,6,2):GOSUB1398: 
IFX <DORX > S(A)THENPRINT“.21S?”;: 
RETURN 

1930 TR =A:SE = X:GOSUB2000 

1940 RETURN 

2000 OPEN15,8,15 

2010 OPEN8,8,8,“ 4” 

2020 PRINT #15,“U1:”8;0;TR;SE 

2030 PRINT #15,“B—P:”8;0 

2040 FORI=0T0255:GET #8,A$:IFST< >0 
ANDST < > 64THENPRINT“.?DR?”: 
CLOSES:CLOSE15:RETURN 

2050 A(I) =ASC(A$ + CHR$(P)) 

2060 NEXT 


2070 CLOSES:CLOSE15:PRINT“OK”:RETURN 

2100 IFLEN(T$) =1THENGOSUB2200: 
RETURN 

2110 X$ = MID$(T$,3,2):GOSUB1300:1FX <1 
ORX> 35THENPRINT“.2IT?”;:RETURN 

2120 A=X:X$ = MID$(T$,6,2):G0SUB1300: 
IFX <OORX > S(A)THENPRINT“.2IS?”;: 
RETURN 

2130 TR=A:SE=X:GOSUB2200 

2140 RETURN 

2200 OPEN15,8,15 

2210 OPENB,8,8, 4” 

2220 PRINT#15,“B— P:”8;0 

2230 FORI=0T0255:PRINT #8,CHR$(A(I));: 
IFST< > DANDST < > 64THENPRINT 
“ PDW?”:GOT02250 

2240 NEXT:PRINT #15,“U2:”8;0; TR;SE 

2250 CLOSES:CLOSE15 

2260 RETURN 

2300 OPEN15,8,15 

2310 INPUT #15,A,B$,C,D 

2320 PRINT“ERROR NO.:”A 


2330 PRINT“ UITYPE:[1”B$ 

2340 PRINT“ TRACK:”C 

2350 PRINT“ SECTOR:”D 

2360 CLOSE15:RETURN 

2400 PRINTEJPUIXXLIXXUI LI — PRINT 
MEMORY 

2410 PRINT“D u BE 
DIRECTORY 

2420 PRINT“RÜIXXUIXX — READ 
FROM DISK 


2430 PRINT“WEOXTOIXXDI DI — WRITE TO 


= 


Programmier-Service 


DISK 
2440 PRINT“ELIXXTIXX 
MEMORY 
2450 PRINT“S 0000 
SECTOR/TRACK 
2460 PRINT“$ m 
TO DECIMA 
2470 PRINT“(NUMBER) — DECIMAL TO HEX 
2480 PRINT“C | ul! = 
LAST ERROR 
2490 PRINT“X 
TO BASIC 
2500 PRINT“H | = 
PRINTS MEN 
2510 PRINT“ WITT] — ILLEGAL TRACK 
2520 PRINT“ISTI] — ILLEGAL SECTOR 
2530 PRINT“SXL] — SYNTAX ERROR 
2540 PRINT“UCL] — UNKNOWN COMMAND 
2559 PRINT“DRI] — DISK READ ERROR 
2560 PRINT“DWU] — DISK WRITE ERROR 
2570 RETURN 


— EDIT 


— LAST 


— HEX 


r 


— EXIT 
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Wenn Sie das Programm gestartet 
haben, erscheint ein Menü mit elf 
Befehlen sowie eine Liste der Feh- 
lermeldungen und ihre Erklärungen. 
Die Befehle werden durch die ange- 
gebenen Tasten eingegeben, wobei 
anstelle von XX eine numerische 
Eingabe erwartet wird. 

Die Eingabe D gibt ein ausführ- 
liches Directory aus — Programmlän- 
gen werden in Bytes angegeben, 


E. 


und es werden sowohl die gelösch- 
ten als auch die gültigen Dateina- 
men dargestellt. 

Wenn Sie einen Teil der Diskette 
lesen wollen, geben Sie zuerst einR 
und dann die durch ein Leerzeichen 
getrennten Nummern von Spur und 
Sektor ein. Denken Sie daran, Hex- 
zahlen zu benutzen! Versuchen Sie R 
12 Ol einzugeben, um das Directory 
so zu lesen, wie es auf der Diskette 
steht. Die gelesenen Daten werden 
im Diskettenbuffer gespeichert und 
können durch P Startbyte Endbyte 
auf den Bildschirm ausgegeben 
werden. Um den ganzen Block zu 
sehen, benutzen Sie P OO FF. In der 
linken Spalte wird die Bytenumerie- 
rung, in der Mitte der Inhalt und 
rechts die Übersetzung in ASCII 
ausgegeben. 

Zum Ändern eines Bytes geben 
Sie E, die Nummer des Bytes und 
seinen neuen Wert ein. Dieser Wert 
erscheint dann in der richtigen Posi- 
tion auf dem Bildschirm. Zurück- 
schreiben können Sie die Daten mit 
W, gefolgt von Zielspur und Sektor. 

Es gibt noch weitere Befehle: S 
gibt Spur und Sektor des letzten Zu- 
griffs aus; $ Hexzahl wandelt in dezi- 
mal um, für die Umkehrung muß nur 
die Dezimalzahl selbst eingegeben 
werden. © gibt den Code der letzten 
Fehlermeldung aus, H springt ins 
Menü und X zurück zu BASIC. 

Beim Löschen einer Datei wird 
das Dateiflag geändert. Dieses Flag 
steht unmittelbar vor dem Spur- und 
Sektorzeiger, der seinerseits unmit- 
telbar vor dem Dateinamen steht. 
Mögliche Dateitypen sind DEL, SEQ, 
PRG, USR und REL. 

Den Dateityp können Sie mit dem 
Diskettenmonitor sehr einfach fest- 
stellen. Die Dateitypen und ihre 
Hex-Werte haben wir zu einer Ta- 
belle zusammengefaßt: 


Dateityp Geschl. Offen Geschützt 
DELeted S80 $00 _ 
SEQuentiell S81 Sol Sscl 
PRoGramm 582 502 Sc2 
USeR $83 503 Sc3 
RELativ 584 504 504 


Eine gelöschte Programmdatei führt 
also $02 als Dateiflag. Solange die 
zugehörigen Blöcke nicht über- 
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schrieben sind, kann sie wieder ak- 
tiviert werden — dazu wird der Wert 
einfach mit DMON von $02 auf $82 
geändert. 


Ganze Diskette löschen 


Mit dem Wert $C2 (für andere Datei- 
typen siehe Tabelle) kann man die 
Datei vor versehentlicher Löschung 
bewahren. Im Directorylisting sind 
solche Dateien durch ein „<“ neben 
dem Dateityp gekennzeichnet. Ge- 
schützte Dateien können nur besei- 
tigt werden, wenn man mit NEW die 
ganze Diskette löscht. Natürlich geht 
es auch mit Hilfe des Monitors, in- 
dem man das Dateiflag auf „offen“ 
stellt. 

Manchmal sind Teile von Dateien 
bereits verschwunden. Sie müssen 
dann die ganze Datei mit Hilfe der 
Spur- und Sektorzeiger „durchkäm- 
men“, um den Umfang des Scha- 
dens festzustellen. 

Dazu gehen Sie an den Anfang 
des Directory ($12 $01) und bestim- 
men Spur und Sektor des ersten Da- 
teiblocks. Untersuchen Sie den 
Block mit DMON — wenn er „ge- 
sund" ist, also keine sinnlosen Daten 
enthält, können Sie den nächsten 
Block prüfen. Spur und Sektor finden 
Sie in den ersten beiden Bytes des 
aktuellen Blocks. 

Wenn Sie an einen zerstörten 
Block geraten, prüfen Sie zuerst, ob 
sich der ursprüngliche Zeiger über- 
schreiben läßt. Beim Lesen wird der 
zerstörte Block dann einfach über- 
sprungen. Als nächstes wird dann 
das Programm aufgerufen, das die 
Daten benötigt, die Daten werden 
korrigiert und erneut gespeichert. 
Dazu können Sie auch eine neue 
Diskette verwenden. 


AcornB 


Disketten für den Acorn haben 
entweder 40 oder 80 Spuren zu je 
zehn Sektoren, so daß auf jeder 
Seite 400 oder 800 Sektoren zur Ver- 
fügung stehen. Jeder Sektor bietet 
Platz für 256 Bytes. 

Das Directory (man erhält es 
durch den Befehl *CAT) befindet 
sich auf Spur 0, Sektor O und 1. Das 
Format finden Sie in der Tabelle. Es 
gibt maximal 31 Einträge. 
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SPUR O 


SEKTOR O0 FORMAT 


Byte Inhalt 


&00—&07 Die ersten acht Zeichen 
des Diskettennamens, 
aufgefüllt mit Leerzei- 
chen 

Erster Dateiname, auf- 
gefüllt mit Leerzeichen 
(höchstens sieben Zei- 
chen) 
Directory-Zeichen der 
ersten Datei 

Zweiter Dateiname, auf- 
gefüllt mit Leerzeichen 
(höchstens sieben Zei- 
chen) 
Directory-Zeichen der 
zweiten Datei 

Von diesen acht Byte langen Na- 
men- und Directory-Blöcken sind 
maximal 31 vorhanden. 


&08—&0E 


&OF 


&10—&16 


&17 


SPURO SEKTOR 1 FORMAT 

Byte Inhalt 

&00—&03 Die letzten drei Zeichen 
des Diskettennamens, 
aufgefüllt mit Leerzei- 
chen 

&04 Anzahl der Schreibope- 
rationen, die auf der 
Diskette durchgeführt 
werden 

&05 8-Byte-Blockzähler 
(achtfache Anzahl der 
aktiven Dateien) 

&06 Einzelne Bits gesetzt 
(s. u.) 

&07 Anzahl der Sektoren 
(acht niederwertige Bits 
(LSB) einer 10-Bit-Zahl) 

&08—&0F SPEICHER-TABELLE 
DER ERSTEN DATEI 

Dateiformat 


&08—&09 Ladeadresse, LSB 
zuerst (0 für eine Daten- 
datei und &1900 für ein 
BASIC-Programm). 
Startadresse, LSB zuerst 
(0 für eine Datendatei, 
&8023 für BASIC I und 
&801F für BASIC II) 
Dateilänge in Bytes, LSB 
zuerst 

Einzelne Bits gesetzt 

(s. u.) 


&01—&08 


&OC—&0D 


&0E 


&OF Start-Sektor (acht LSBs 
einer 10-Bit-Zahl) 
&10—8&17  SPEICHER-TABELLE 


DER ZWEITEN DATEI 
Dateiformat wie oben. 
Und so weiter bis maximal 31 Da- 
teien. 


Die Einzelbits in &06 und &OE ha- 
ben folgende Bedeutung: Wenn Bit 5 
und 4 in &06 gesetzt sind, wird das 
Programm automatisch geladen 
(!BOOT). Bits 1 und O sind die 
höchstwertigen Bits (MSB) einer 10- 
Bit-Zahl, der Rest steht in &07. 

Bit 7Zund 6 in &OE sind die MSBs 
der 18-stelligen Startadresse. Der 
Rest ist in &OA bzw. &0B unterge- 
bracht. Bits 5 und 4 sind die MSBs 
der Dateilänge (Rest in &0C, &OD), 
während Bits 3 und 2 diese Aufgabe 
für die Ladeadresse übernehmen. 
Bits lund Osind die MSBs des Start- 
sektors (Rest in &OF). 

Der Startsektor berechnet sich 
aus Byte &OF und Bits 1 und Oin &OE: 
Wenn z.B. &38in &OF steht, während 
die MSBs null sind, fängt die Datei 
bei &38/ 10=5.6 an, also bei Spur 5, 
Sektor 6. Enthält &OF &43 und ist Bit O 
in &OE gesetzt, dann fängt die Datei 
bei &143/ 10, Spur 32, Sektor 3 an. 

Man sollte sich merken, daß die 
Ladeadresse (&08, &09) für eine Da- 
tei &0000 und für BASIC &1900 ist 
(LSB zuerst!). Die Startadressen sind 
&0000 für Dateien &8023 für BASIC. 

Die Speichertabelle eines 12 067 
Bytes langen BASIC-Programms 
könnte also folgendermaßen ausse- 
hen: 00 1923 80 23 2F CC 02. In etwas 
anderer Form kann man diese Infor- 
mationen auch mit dem Befehl 
*INFO*.* erhalten. 


10 MODE3 

20 DIM block 12 

30 DIM buffer 255 

49 printer=® 

50 DR%=® 

60 PROCload(DR%,9,0,1) 

70 REPEAT 

80 PROCprint 

90 VDU28,0,24,79,21 

100 PROCcommand 

110 UNTIL com$ = “END” 

120 END 

130 DEFPROCIoad(DR%,TR%,SCT%,RNW) 
140 X%=block MOD 256: Y% = block DIV 256 


150 AX=&TF 

169 block?® =DR% 

170 block!1 = buffer 

180 block?5 = 3 

190 block?6 = &4B + 8°RNW 

200 block?7=TR% 

210 block?8 = SCT% 

220 block?9= &21 

230 CALL&FFFI 

240 ENDPROC 

250 DEFPROCprint 

260 CLS:VDU26 

270 IF printer=1 THEN VDU2 ELSE VDU3 

280 PRINT“ Track [1”;TR%;“ [1 [1Sector[]”; 
SCTA%;“ DriveL1”’;DR% 

290 PRINT 

300 FOR I%=® TO 1 

310 PRINT“ Oo bytes (in hex) 
D ascii 2 

320 NEXT 

330 PRINT 

340 line = 32:pos = 7:buff = buffer 

350 FOR lin=1 TO line 

360 L=LEN(STR$((lin — 1)*8)) 

370 FOR I=1 TO 4—L:VDU32:NEXT 

380 PRINT;STR$((lin — 1)'8);“ 11”; 

390 FOR linpos=® TO pos 

400 cont =linpos?buff 

410 IF cont<&1® THEN PRINT‘‘Q”; 

420 PRINT; » cont;“ 1”; 

430 NEXT 

449 PRINT“ L1”; 

450 FOR linpos=® TO pos 

460 cont =linpos?buff 

470 asc= (cont>31 AND cont< 127) 

480 IF asc THEN PRINTCHR$cont; ELSE 
PRINT“.”; 

490 NEXT 

50® IF lin MOD2=® THEN PRINT 

510 buff=buff +8 

520 NEXT 

530 PRINT 

540 VDU3 

550 ENDPROC 

560 DEFPROCcommand 

570 INPUT“ $”com$:comlen = LEN(com$): 


com$ = com$ + LEFT$(“ ”4— 
comlen) 
580 command = (INSTR(“UILI TI LIDRV TRK 


SCT INS PRT WRT END 
SHOW” ,com$,®))DIV4 +1 

590 ON command GOTO 690,610,620,630, 
640,650,669,680,670 

600 PROCcommand:ENDPROC 

610 PROCdrive:ENDPROC 

620 PROCtrack:ENDPROC 

630 PROCsector:ENDPROC 

640 PROCinsert:ENDPROC 

650 PROCprinter:ENDPROC 

660 PROCIoad(DR%,TR%,SCT%,®):ENDPROC 


670 PROCload(DR%,TR%,SCT%,1):ENDPROC 

680 ENDPROC 

690 DEFPROCdrive 

700 INPUT“ Drivel1”,DR% 

710 ENDPROC 

720 DEFPROCprinter 

730 IF printer=1 THEN printer=® ELSE 
printer 1 

740 ENDPROC 

750 DEFPROCinsert 

760 REPEAT:INPUT‘Offset from start 
?....”’os:UNTIL os> =® AND 0os< 256 

770 REPEAT:INPUT‘“New value ?....”’val$:val= 
EVAL(val$):UNTIL val> =® AND val < 256 

780 buffer?os = val 

790 ENDPROC 

800 DEFPROCtrack 

810 REPEAT 

820 INPUT“ Track 1 [1?[1”TR% 

830 UNTIL TR% > = ® AND TR% <8® 

840 PROCload(DR%,TR%,SCT%,1) 

850 ENDPROC 

860 DEFPROCsector 

870 REPEAT 

880 INPUT“ Sector[] [I?[1”SCT% 

890 UNTIL SCT%> =® AND SCT% <1® 

900 PROCIoad(DR%,TR%,SCT%,1) 

910 ENDPROC 


Nach dem Start meldet sich der 
Monitor mit dem Inhalt von Spur 0, 
Sektor 0, Laufwerk O und der ASCI- 
Darstellung dieses Inhalts. Wollen 
Sie andere Teile der Diskette lesen, 
geben Sie DRV zur Auswahl des 
Laufwerks, TRK für die Spur und 
SCT für den Sektor ein. Versuchen 
Sie, zwischen den Sektoren O und 1 
umzuschalten — Sie sehen zuerst die 
Dateinamen und dann die Speicher- 
tabelle. 


Mit INS ändern 


Zum Ändem eines Byte wird INS 
eingegeben. Danach kommt zuerst 
die Nummer des Bytes und dann 
sein neuer Wert. Dateinamen in Sek- 
tor O0 werden in ASCII gegeben. 
Werte für die Speichertabelle in 
Sektor 1 dagegen in hex. 

Am Ende können Sie den Sektor 
mit WRT auf die Diskette schreiben. 

Einen Ausdruck erhalten Sie mit 
PRT, ein zweites PRT schaltet den 
Drucker wieder ab. Nach einem Dis- 
kettenwechsel kann es vorkommen, 
daß Sie SHOW eingeben müssen, 
um den Inhalt der neuen Diskette zu 
lesen. Im allgemeinen funktioniert 


das aber automatisch. Nach getaner 
Arbeit geben Sie END ein. 

Man kann DMON zwar für die 
„Wartung“ von Dateien einsetzen — 
die wichtigste Anwendung ist aber 
die Rettung verlorener Dateien. Sie 
brauchen zuerst die Dateilänge und, 
noch wichtiger, den Startsektor. 
Wenn alles in Ordnung ist — d.h, 
wenn die Datei noch nicht zerstört ist 
—, erhalten Sie diese Information 
durch Eingabe von *INFO <Datei- 
name>. 

Wenn Sie diese Information nicht 
notiert haben, dann haben sie ein 
ziemlich langweiliges Forschungs- 
vorhaben vor sich, um Startspur und 
-sektor sowie die Länge der verlore- 
nen Datei herauszufinden. Verwen- 
den Sie dann die Umkehrung der 
zuvor beschriebenen Prozedur, um 
die Information über Spur und Sek- 
tor in ein hex-Byte und die beiden 
MSBs zu zerlegen. 

Um die Datei zu retten, wählen Sie 
den nächsten freien 8-Byte-Block in 
Sektor O und füllen ihn mit einem 
neuen Dateinamen plus Directory- 
zeichen (7+1 Bytes), alles in ASCI. 
Vorsicht — nicht den Namen einer 
aktiven Datei überschreiben! 

Dann rufen Sie mit DMON Sektor 
l auf und erhöhen &05 um 8, damit 
diese Datei akzeptiert wird. 

Sie haben jetzt eine neue Datei 
angelegt, und die braucht ihre ei- 
gene Speichertabelle, also acht By- 
tes von &08 bis &OF. Sie gehört in die 
ersten &08 bis &OF. Sie gehört in die 
ersten freien acht Bytes, die dem 
Namen entsprechen. Die ersten bei- 
den Bytes sind die Ladeadresse — 
&0000 (Daten) bzw. &1900 (BASIC) 
—, und das zweite Paar ist die Start- 
adresse. 

Mit dem Monitor schreiben Sie 
die Dateilänge in die nächsten zwei 
Bytes (das LSB zuerst). Kennen Sie 
die Länge noch nicht, setzen Sie pro- 
visorisch &00 &10 ein. 

Etwas problematisch ist das Set- 
zen des siebten Bytes, dessen LSBs 
den Startsektor der Datei angeben, 
die Sie retten wollen. Denken Sie 
daran, daß sich diese Information 
bereits auf der Diskette befindet, 
daß die Datei aber erst gerettet wer- 
den kann, wenn der Startsektor ge- 
funden und sein Wert in Byte 7 ein- 
getragen worden ist. 
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Wenn Sie damit fertig sind, verlas- 
sen Sie den Diskettenmonitor. Wuß- 
ten Sie die Dateilänge nicht, geben 
Sie jetzt PRINT LOMEM ein, und no- 
tieren Sie das Ergebnis. Dann laden 
Sie das Programm oder den Daten- 
satz und prüfen, ob Sie erfolgreich 
waren. Fragen Sie noch einmal LO- 
MEM ab - die Differenz zwischen 
den beiden Werten ist die Datei- 
länge, die Sie jetzt in &0C &OD der 
Speichertabelle eintragen können. 
Um ganz sicher zu gehen, sollten Sie 
die Datei jetzt auf eine neue Dis- 
kette kopieren. 


Die Dragon-Diskettenstation be- 
sitzt ein eigenes Interface, welches 
auch das DOS enthält. 

Die Disketten sind in 40 oder 80 
Spuren mit 18 Sektoren ä 256 Bytes 
aufgeteilt. 

Das Directory, das die Verwaltung 
der Dateien vornimmt, befindet sich 
auf den Spuren 16 und 20. Beide 
Spuren sind identisch, aber Spur 16 
wird für das Directory benutzt, Spur 
20 für das System. 


Spur 16 Sektor 3 


Byte Inhalt 


I Dateiflag, z. B. 00 für ak- 
tive Datei, 02 für eine 
geschützte Datei, 81 für 
gelöschte Dateien 


2-9 Dateiname, aufgefüllt 
mit Nullen 

10-12 Dateibeschreibung, z.B. 
BAS, BAK 


13—14 MSB und LSB einer 16- 
Bit-Zahl für Startspur 


und -sektor. 

18 Gesamtanzahl der be- 
nutzten Sektoren 

16-24 Verweist auf verknüpfte 
Dateien 

16-17 Höher- und niederwer- 


tige Bytes, verweisen 
auf den nächsten Start- 


sektor 

18 Anzahl der benutzten 
Sektoren 

19-21 dito für den nächsten 
Abschnitt 

22—24 dito für den letzten Ab- 
schnitt 

28 Anzahl der belegten By- 


tes im letzten Sektor. 
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Die Sektoren l und 2 von Spur 16 und 
20 informieren den Computer dar- 
über, welche Sektoren belegt sind. 
Jedes Byte repräsentiert acht Sekto- 
ren. Für jeden Sektor gibt es ein Bit, 
gezählt wird von Spur Null, Sektor 1. 
Bei einer frisch formatierten Diskette 
sind alle Bits auf Null gesetzt, für je- 
den belegten Sektor wird eine lein- 
getragen, die beim Löschen wieder 
auf Null gesetzt wird. 

Für ein BASIC-Programm könnte 
der Directory-Eintrag etwa folgen- 
dermaßen aussehen: 
00ABC0000000000BAS01 44 
18 00 FC 
09 00 00 00 00 00 00 DB 
Das ist eine Datei namens „ABC“, 
die bei &H0144 anfängt, &H18 Sekto- 
ren lang ist, mit einer Erweiterung, 
die bei &HOOFC anfängt und neun 
Sektoren lang ist. Im letzten Sektor 
sind &HDB Bytes belegt. Um den 
Anfang der Datei zu finden, rechnen 
Sie einfach &HO0144=324 dezimal 
durch 18 aus (Anzahl der Sektoren 
pro Spur). Das Ergebnis ist 18 ohne 
Rest, die Datei fängt also in Spur 18, 
Sektor 1 an. Ihre Länge beträgt 
&HI18+&H8 Sektoren +&HDB Bytes, 
also insgesamt 8411 Bytes. 


10 CLEAR5099:DIMA$(1),D$(1),D(169): 
c$=“1”+CHR$(10) + CHR$(8) + 
CHR$(9) + “AH” + CHR$(13) +“ UI”:D=1 

20 CLS:PRINT@13,‘‘menu” 

30 PRINT@106,““IOAD SECTOR”:PRINT 
@170,“vIEW/EDIT SECTOR”:PRINT@234, 
“sAVE SECTOR”:PRINT@298, “cATALOGUE” 

40 R$=INKEY$:IFR$ =“ THEN49 

50 R=INSTR(“LVSC”,R$):IFR=® THEN4® 

60 IFSL=®AND(R=20RR=3) THENPRINT: 
PRINT“NO SECTOR -LOADED”:FORK=1 
T02009:NEXT:GOTO2® 

70 CLS:ON R GOSUB1009,2000,3000,4000 

80 GOTO2® 

1000 SL=1:G0SUB5009 

1010 SREADD,T,S,A$(9),A$(1) 

1020 RETURN 

2000 F=1:H=1:CL$:PRINT“aSCII OR hEX 
LISTING ?” 

2010 R$=INKEY$:IFR$ < > “A”AND 
R$< > “H” THEN2910 

2020 AS=0:IFR$= “A” THENAS= 1 

2030 IFF=® THEN2050 

2050 PK=96:CP=1535:1FAS=1 GOSUB 
2320 ELSEGOSUB2280 

2050 POKECP,PK:CP=19024+Y*32+X3: 
PK=PEEK(CP):POKECP,239 

2060 PRINT@321,“TOP BYTE="';H 


2070 R$=INKEY$:IFR$ = “” THEN2070 

2080 R=INSTR(C$,RS):IFR=® THEN207C 

2090 F=®:0N R GOTO 2100,2110,2120, 
2130,2140,2150,2160,2170 

2100 Y=Y-1:60702210 

2110 Y=Y+1:60T02210 

2120 X=X-1:60T02210 

2130 X=X+1:60T02210 

2140 AS=1:G0T02040 

2150 AS =0:G0T02049 

2160 RETURN 

2170 PRINT@384,“INPUT NEW CONTENTS 
(HEX) D”5:INPUTH$ 

2180 V$ =CHR$(VAL(“&H” +H$)):P=H+ 
YIT+X 

2190 MID$(A$(P/128),P+128°(P> 128), 
1)=V$ 

2200 F=1:60T02030 

2210 IFY<O THENH=H—44:Y=0:F=1 

2220 IFY>7 THENH=H+44:Y=7:F=1 

2230 IFX<® THENX=10:Y=Y-1:1FY<Q 
THENH=H-11:Y=0:F=1 

2240 IFX>10 THENX=0:Y=Y+1:1FY>7 
THENY=7:H=H+11:F=1 

2250 IFH= — 100RH= —43 THENH=1: 
F=9:ELSEIFH<1 THENH=1:F=1 

2260 IFH=1790RH=212 THENH=168: 
F=@ ELSEIFH>168 THENH=168:F=1 

2270 GOTO2030 


2280 CLS:FORJ=H TOH +87 STEP11:FOR 
T=91010 

2290 PRINTRIGHT$(“0” + HEX$(ASC 
(MID$(A$(J/128),) + T+128° 
(U +T)>128)))),2),* 1”; 

2300 NEXT:PRINTCHR$(8);:NEXT 

2310 RETURN 

2320 CLS:FORJ=H TOH +87 STEP11:FOR 
T=91010 

2330 G =ASC(MID$(A$(J/128),) + T+128° 
((J+T)>128))):1FG <32 THEN2350 

2340 PRINT“ LI”;CHR$(G);“[1”;:G0T02360 

2350 PRINTLEFT$(“0” + HEX$(G),2);“ U”; 

2360 NEXT:PRINTCHR$(8);:NEXT:RETURN 

3000 CLS:PRINT“SAVE TO SAME SECTOR 
(Y/N) ?” 

3010 RE=INKEYS:IFRS< > “Y”AND 
R$< > “N” THEN3010 

3020 IFR$=“Y” THEN3049 

3030 CLS:GOSUB5000 

3040 PRINT:PRINT“ARE YOU SURE (Y/N) ?” 

3050 R$=INKEY$:IFR$< > “Y” 
ANDR$ < > “N” THEN3050 

3060 IF R$= “N” THENRETURN 

3070 SWRITED,T,S,A$(0),A$(1) 

3080 RETURN 

4000 GOSUB5050 

4010 PRINT # PR,TAB(14);“START 

4020 PRINT PR,“ 


LINO.” 
NAMEL] UITYPED] 
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TROOSCOSECSDILEN” 

4030 FORJ =0T015:SREAD1,16,J + 3,D$(D), 
D$(1) 

4040 FORK=1T0250 STEP25 

4050 GOSUB6000 

4060 IFASC(V$) < >® ANDASC(V$)< >2 
THEN4120 

4070 PRINT # PR,MID$(V$,2,8);TAB(8);“.”; 
MID$(V$,10,3); 

4080 TS= —1:FORP=13T022 STEP3: 
V = 256"ASC(MID$(V$,P)) + ASC(MID$ 
(V$,P +1)):EB=ASC(MID$(V$,P+2)): 
TS=TS+EB:IF EB=@ THEN4110 

4090 IFP< >13 THENPRINT#PR 


4100 PRINT # PR,TAB(12);INT(V/18);TAB(16); 


1+V--18°INT(V/18);TAB(20);ASC(MID$ 
(V$,P+2)); 

4110 NEXTP:PRINT # PR,TAB(24);256°TS + 
ASC(MID$(V$,25)) 

A120NEXTK,J:R$= INKEY$:IFPR= —2 THEN 
440 

4130 R$ = INKEY$:IFR$ =” THEN4130 

4140 RETURN 

5000 INPUT“TRACK NUMBER (0 39) I”; T 

5010 INPUT“SECTOR NUMBER 
(1-18)0”8 

5020 INPUT“DRIVE NUMBER (1—4)[1”;D 

5030 IFD>40RD <10RT>390RT <GDOR 
S>180RS<1 THEN5000 


5040 RETURN 
5050 PR=®:IF(PEEK(65314)AND1)=1 THEN 
RETURN 
5060 PRINT‘‘OUTPUT TO PRINTER (Y/N) 2” 
5070 R$=INKEY$:IFR$ < > “Y”’AND 
R$< > “N” THEN5070 
5080 IFR$=“"Y” THENPR= — 2 
5090 RETURN 
6000 V$=MID$(D$(K/128),K + 128° 
(K> 128),25):1FLEN(V$) <25 THENV$ = 
V$ + MID$(D$(1 + K/128),1,25— LEN (V$)) 
6010 RETURN 


Tippen Sie das Programm ein 
oder laden Sie es, und legen Sie 
dann die Diskette ein, mit der Sie ar- 
beiten wollen. Zum Üben sollten Sie 
aber keine wichtige Diskette wäh- 
len. Nach RUN bietet das Menü vier 
Möglichkeiten: Sektor laden, Sektor 
ausgeben/editieren, Sektor schrei- 
ben und Katalog. Geben Sie zuerst C 
ein. Sie erhalten dann ein ausführ- 
liches Inhaltsverzeichnis mit allen 
Dateien. Die Liste enthält die Datei- 
namen, Typ, Startspur und -sektor 
sowie die Länge in Bytes. Besteht 
eine Datei aus mehreren verknüpf- 
ten Abschnitten, werden auch Start- 
spuren und -sektoren der einzelnen 
Abschnitte ausgegeben. 

Geben Sie als nächstes L ein, um 
einen Sektor zu laden, etwa das Di- 
rectory, Spur 16, Sektor 3. Nach V 
können Sie mit A oder H zwischen 
einer Darstellung in hex oder ASCH 
wählen. Sie sollten jetzt in der Lage 
sein, die Zahlen oder Buchstaben 
mit dem vorher dargestellten Direc- 
tory zu vergleichen. 

Mit den Pfeiltasten können Sie 
den Cursor auf ein Byte setzen, das 
Sie ändern wollen. Überschreiben 
Sie es einfach mit der neuen Hex- 
zahl und schließen Sie die Eingabe 
mit einem Leerzeichen ab. Nur ein 
Teil des Sektors paßt auf den 
Schirm. Um den Rest zu sehen, be- 
wegen Sie den Cursor einfach in die 
unterste Zeile; die Bildschirman- 
zeige scrollt dann nach oben. Dabei 
wird die Nummer des aktuellen By- 
tes fortlaufend angezeigt. 

Vernünftigerweise sollten Sie die- 
ses Programm auf eine neue Dis- 
kette speichern und es auf der alten 
noch einmal löschen. Das ist nötig, 
weil Sie zwar den Dateinamen wie- 
der gesetzt haben, nicht aber die 
Bits in Sektor 1 und 2 des Directory. 
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Unser Programm über- 
setzt Text in Vier-Bit- 
Blöcke, sog. „Nibbles“. 
Die einzelnen Nibbles 
haben unterschiedliche 
Bedeutung (siehe Ta- 
belle). Hier sind nur die 
Werte 0 bis 2 einge- 
setzt. Der Einsatz des 
Wertes 3 könnte beim 
Erweitern des Pro- 
gramms ein zusätz- 
liches Signal definie- 
ren. Die 3 würde dabei 
als Zeiger einer Tabelle 
mit 255 Elementen fun- 
gieren. Dadurch wird 
die Darstellung von 
Kleinbuchstaben und 
eine größere Zahl von 
Tokens möglich. 
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Kompaktklasse 


Aus den im vorhergehenden Kapitel behandelten 
Verkürzungstechniken soll ein vielseitiges Programm zur 
„Textkompression“ entwickelt werden. Unser Programmvorschlag 
arbeitet mit Vier-Bit-Blöcken. Den Assembler-Teil finden Sie in dieser 
Ausgabe. Weitere Ergänzungen dazu folgen im nächsten Heft. 


ie bei unserem Programm eingesetzte 

Methode ist eine verkürzte Fassung des 
Vier-Bit-Algorithmus. Der Text wird dabei in 
Vier-Bit lange Blöcke umgesetzt, die entweder 
eines der am häufigsten verwendeten Zeichen 
oder einen Code mit Informationen über den 
folgenden Vier-Bit-Block darstellen. In der Ta- 
belle rechts wird erläutert, was die einzelnen 
„Nibbles“ (Vier-Bit-Blöcke) bedeuten. 

In der vorliegenden Form komprimiert das 
Programm nur Texte aus Großbuchstaben, 
Leerzeichen, Kommas und Punkten. Es können 
aber auch bis zu 16 Tokens (Abkürzungen) 
verarbeitet werden. 

Beim Einsatz muß der Anwender die 
Adresse des zu komprimierenden Strings ein- 
geben und auch die Adresse, an der der neue 
String gespeichert werden soll. Der String wird 
von einem Zählbyte eingeleitet, auf das die 
Buchstaben folgen. Die Stringlänge ist auf 255 
Bytes begrenzt. 

Wer in Maschinensprache programmieren 
kann, wird mit der Erweiterung keine beson- 
deren Schwierigkeiten haben. Eine wirkungs- 
volle Ausbauvariante könnte etwa die Erzeu- 
gung einer Token-Tabelle mit 255 Elementen 
sein. Damit könnten neben Groß- und Klein- 
buchstaben auch zusätzliche Tokens verarbei- 
tet werden. Wenn dies vor der Prüfung auf 
Acht-Bit-Tokens geschieht, kann das restliche 


 Kompressions-Codierung 
[0100 [o assemeesr 
[0 _| Buchstaben behandeln’ 


_ Nächstes Nibble als 
Token behandeln _ 


Die 13 häufigen 
Buchstaben 


Programm bis auf die zusätzliche Tabelle un- 
verändert bleiben. 

Die Tabelle für diese Variante sollte so auf- 
gebaut sein, daß die Vier-Bit-Werte die häufig- 
sten Buchstaben in Kleinschrift sowie das 
Leerzeichen und das Symbol für „neue Zeile“ 
darstellen. In der Acht-Bit-Tabelle stehen dann 
nur die weniger gebräuchlichen Kleinbuchsta- 
ben. Seltene Kleinbuchstaben stehen zusam- 
men mit den Großbuchstaben und Tokens in 
der neuen Tabelle. 

Die Programmadresse ORG kann je nach 
Rechner abgewandelt werden. Das Programm 
muß assembliert und der übersetzte Code auf 
Cassette oder Diskette gespeichert werden. 


Programm zur Textkompression 


Unser Programm für die Textkompression er- 
scheint in zwei Abschnitten. In dieser Folge ha- 
ben wir das Assembler-Listing für 280-Rechner 
abgedruckt. Die Version für den Prozessor 6502 
folgt im nächsten Heft. Außerdem versorgen 
wir Sie auch mit BASIC-Ladeprogrammen für 
beide Versionen. Das Programm läuft, auch 
wenn Sie keinen Assembler haben. 


org 38888 
jr start ; leap round the data space 
string: dw 8 ; load with input string address 
output: du [) ; enter address for output string 
status: db 8 ; status return, zero signals ok 
mask: db ] ; 
len: db 8 ; storage space for input length 
start: 1d hl,(string) get address of string to 
compress 
a,chl) get input string length 
(len),a store it away 
hl point at start of string 


de,Coutput) point at output space 


de save start of output 
de leave | space for count 
(output) ‚de save output address til] 

we get something to store 
4,295 
(mask),‚a ; handle left nibble first 
a,chl) ; get byte to work on 
check ; make sure it’s within range 
nz,badchar ; jr if character not allowed 
token ‘; check if start of a token 
2,gottoken ; found a token so process it 
fourbit » check for a 4 bit character 
2,got4bit ; character is 4 bits so Jump 
eightbit ; get 8 bit character value 
af ; no need to check - save value 
a,8 ; while ’8 bit char’ indicator.. 
writenib j. output 


pop 
got4bit:call 


rejoin: inc 
Id 
dec 
Id 


nodec: and 


badchar :pop 
Id 


Id 
ret 


gottoken: 
push 
Id 
call 
pop 
call 
jr 


af 
writenib 


hl 

a,(len) 

a 

(len),a 

a 

nz,nchar 
(status) ,a 
a,2 
writenib 
de,hl 


a,(mask) 
a 
z,nodec 
hl 

a 

hl,de 
a,l 
(de),a 


de 
a,295 
(status) ,a 


af 

a,l 
writenib 
af 
writenib 
rejoin 


; subroutine to check for 


token; push 


tokl: Id 


tok2: 1d 


chkchars: 
dec 
jr 

nxttoken: 


hl 

de,hl 
hl,tktable 
a,(len) 
C,a 

b,öfh 
a,(hl) 

a 
z,notfound 


nz,nxttoken 
hl 

de 

b 
nz,chkchars 


restore 2nd nibble of 8 bit val 
output 2nd nibble of 8 bit, or 
ist nibble of 4 bit, value 
point at next input character 
get back current length 

minus one for char just proc’d 
put back new length 


jr to proc next char if exists 

signal finished ok, a will = 8 
= end of compressed text 

write it out 

final output address into h] 

get output string address 

get masK value 


if mask zero then final value ok 
ignore final byte, it’s null 
clear carry for subtraction 

get length 

get length - not more than 255! 
store count at begin of output 
return 


clear stack 


signal failure 


save token nibble 
signal token coming 


restore nibble 
output token 


start of new token 

save input address 

put input address into de 
point hl at table of tokens 
get remaining length into a 
and transfer it to c j 
initialize token number 

get length of current token 


if length=zero then endoftable 
save these pointers in case 
they are needed 

point to Ist char in token 
save token number 

count into b 

get input character 

compare with token character 
it no match forget this token 
point to next character 


reduce remaining chars count 
it b isn’t ® then jump 


store it away 


token found - restore token no. 
clear stack 


put new input address into hl 


and dec to keep main loop in step 


set zero flag to signal success 
get token number into a 


reduce remaining character count 
it still chars to check go back 


restore remaining charsttoK no. 
next token number 


get back pointer to curr tok. no 


length into de 


step over count 


hl now point at next tokens count 


pop de ; restore input address 

jr toki ; Jump to check next token 
notfound: 

pop hl ; restore original input address 

Id a,(hl) ; restore character 

or a ; reset zero flag to signal failure 

ret 


; subroutine to check for 4 bit characters 


fourbit:push hl 
Id hl,tabdbit 
call tabscan 
pop hl 


save input address 

point hl at character table 
scan table for value 
restore input address 

go back 


; subroutine to check for 8 bit characters 
eightbit: 

push hl 

Id hl,tab8bit 


save input address 
point at 8 bit character table 


call tabscan scan table 
pop hl restore address 
ret return 


; general purpose table scanning routine 


16 characters in each table 
(one is numbered 8) 
check character 


tabscan: Id b,dfh 


tabsc2: cp (hl) 


’ 
’ 
’ 
jr z,tabsc3 ; return with 8 set if match 
inc hl ; check next table element 
dinz tabsc2 ; loop till no chars in table 
or a ; reset 8 flag to signal no match 
‚ a contains char code () ® 
ret ; 90 back 
tabsc3: Id a,b ; put nibble into a 
ret 


; routine to check for valid characters 
; only space ,. ; : and upper case letters allowed 


check: cp 2 ; check for space first 
ret z 
cp Er ; amd comma 
ret 2 
cp Be ; finally full stop 
ret 2 
cp A ; assume contiguous alphebet 
jr c,nogood ; Jump it ‘less than’ A 
cp er 
jr nc, nogood 
Id C,a 
xor a ; set zero to signal character ok 
Id a,c 
ret 
nogood: Id a,255 
and a ; reset zero to signal failure 
ret 
writenib: 
Id C,ä ; save nibble 
Id a,(masK) H 
Id de,toutput) ; get address of byte to write to 
and a ; check mask value 
jr nz,left ; Jump if nibble needs shifting 
Id a,(de) ; get old nibble 
or c ; insert new nibble 
Id (de),a ; and store it back 
inc de ; point to next byte 
Id <output) ‚de ; save address 
Id a,255 
Id (mask),a ; signal left nibble next time 
ret 
left: 1d a,c ; get value into a 
sla a ; shift it across 
sla a 
sla a 
sla a 
id (de),a ; and store it 
xor a 
Id (mask),a ; signal other nibble next time 
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; 4 Bit text expansion program for 288, machine independent 


expand: 1d 


tokloop:1d 

tklpi: Id 
inc 
call 
djnz 
jr 

tokscan:1d 


expdbit:ld 
call 
call 
ir 


index: 


hl,(string) 


hl 
{string),hl 
de,toutput) 
de 

2,299 
(mask),a 


getnib 
2 
z,tin 
nc,expdbit 
a 
z,exp8bit 
getnib 
tokscan 
b,a 
a,(hl) 
hl 
outchar 
tklpi 
nextnib 
hl,tktable 


d,8 
hl,de 
toksci 


hl ,Coutput) 
de 

a 

hl,de 

a,] 

(de),a 


getnib 
hl,taböbit 
index 
outchar 
nextnib 


hl,tab4bit 
index 
outchar 
nextnib 


de (output) 
de 

(de),a 
(output) ,de 


a,(mask) 

hl ‚(string) 
a 

a,(hl) 


string contains address of 
string to expand 

point hl at start of string 
put back new string start 
point at start of output space 
save for end 


; handle left nibble first 


get next input nibble 


; is this the end 
; it so jump to finish up 
; it nibble ) 2 process 4 bits 


it nibble=i process 8 bit char 
get nibble to expand into token 
find the one we want 

count into b 

get token character 

point to next character 

output to new string 

loop for all the token chars 
Jump back for next input nibble 


initialise b 


count into b 


get lenght of this token 
point at first char in token 


; reduce count 
; return if it’s the one we want 
; step over this token 


; Jump back 


; get end of output string in hl 
; start of the output string 
; clear carry 


length in hl 


; length mustn’t be ) 255 
; put count in right place 
; return to system 


; get next nibble for 8 bit char 
; point hl at correct table 

; get the right character 

; put it in the output string 

; go back for more 


; point at 4 bit table 


find character 


; output it 
; round again 


; initialise e 


get offset into a 
; put into e 


; index into table 
; get character 


; get last address outputted to 


point to new address 


; store character 
; put back new address 


; get mask value 


; get address of input byte 


get byte 


shfta: sra 


(string) ,hl 
C,a 

2,255 
(mask) ‚a 


(mask),a 
a,c 


; table of values 


; four bit table 


tab4bit:db 


’E 
T’ 
7 
‚Jr 
N’ 


characters 


or 
‚My 
y 
’B 
.y 
pr 
yr 
Br 
y 
Kr 
X} 


Jump if left nibble required 
; mask right nibble 

point to new byte 

store for next time 


signal left nibble next time 


; shift right nibble ove 


ı mask it off 


; signal right nibble next time 


; space character 


; dummy values to fill table 


; end of table marker 


Mama Bell 


Die Bell-Laboratories liefern seit Jahrzehnten entscheidende 
Entwicklungsbeiträge für die Hard- und Software. Und sie schrieben 


ein Stück Computergeschichte. 


chon vor hundert Jahren amüsierte sich 
Queen Victoria über eine neue Erfindung, 
dank der sie von der Isle of Wight im Ärmelka- 
nal aus mit ihren Ministern im fernen London 
sprechen konnte. Vom ersten Telefongespräch 
der Königin bis hin zur weltweiten Satelliten- 
kommunikation bedurfte es aber noch erheb- 
licher Anstrengungen, wobei der Computer 
quasi als Abfallprodukt entstand. Zur Förde- 
rung der Fernsprechtechnik hatte die „Ameri- 
can Telephone & Telegraph Company“ (AT&T), 
eine Gründung Graham Bells, bereits 1925 in. 
Murray Hill/New Jersey (USA) die „Bell Labo- 
ratories" ins Leben gerufen, die später unter 
dem Namen „Mama Bell“ bekannt wurden. 
Der Schwerpunkt dieser Einrichtung mit 
über zwanzigtausend Mitarbeitern liegt in der 
Grundlagenforschung. Die Wissenschaftler des 
Labors werden von den Problemen der Tages- 
entwicklung mit Bedacht abschirmt. Hervorra- 
gende Fachleute können tun und lassen, was 
Ihnen für ihre Forschung wichtig erscheint. 


Nobelpreise 


Kommen dann dabei innovative Entdeckungen 
heraus, hat sich der Einsatz des Geldes für das 
Unternehmen gelohnt. Diese Philosophie 
brachte für die forschenden Wissenschaftler 
tatsächlich mehrere Nobelpreise und zwanzig- 
tausend Patente auf den verschiedensten Ge- 
bieten ein. Für die Entwicklung des Computers 
waren viele Arbeiten der Forscher dieses Un- 
ternehmens von großer Bedeutung. 

In den dreißiger Jahren wurde zunehmend 
die Fernsprechtechnik weiterentwickelt; vor al- 
lem wurde die Vermittlungs-Automatisierung 
vorangetrieben. Der Verbindungsaufbau er- 
folgte bereits mit Hilfe eines digitalen Wählco- 
des, der als eine Folge von Rechteckimpulsen 
beim Ablauf der Wählscheibe erzeugt und an 
die Zentrale gesendet wurde. Die Information 
übernahm dort zunächst ein Relaisregister, bis 
die Verbindung über ein Kreuzschienensy- 
stem durchgeschaltet war; die Wählimpulse 
mußten gezählt und in Koordinaten auf elektro- 
mechanischen Schaltfeldern umgesetzt wer- 
den. Mit diesem Vermittlungssystem standen 
die wesentlichen Rechnerkomponenten ei- 
gentlich schon bereit — es mußte nur noch der 
rechte Mann kommen. 

Dieser Mann war der Bell-Mathematiker Ge- 
org Stibitz, dem die Analogie zwischen dem 


„Zählen“ der Wählimpulse und dem Vorgehen 
beim Addieren auffiel. Auf seinem Küchen- 
tisch bastelte er aus einem alten Koordinaten- 
wähler und ein paar Relais die ersten elektro- 
mechanischen Computer-Funktionsgruppen. 

Stibitz tat sich dann mit dem erfahrenen Ver- 
mittlungs-Ingenieur Samuel B. Williams zu- 
sammen, der schon seit Jahrzehnten die Kreuz- 
punktschalter im Kopf hatte, und baute mit ihm 
den „Complex Number Calculator“. Dieses 
Gerät war eine Rechenmaschine für „kom- 
plexe“ Zahlen, die ja bekanntlich imaginäre 
Anteile enthalten und bei der Lösung von Poly- 
nomgleichungen gebraucht werden. Der Bau 
des Apparates begann 1937, und man benötige 
450 Relais sowie zehn Kreuzschienenfelder, 
bis er am 8. Januar 1940 erstmals arbeiten 
konnte. Er arbeitete mit binärer Codierung und 
benötigte für die Division bei zwei achtstelli- 
gen Zahlen eine halbe Minute. Im September 
1940 wurde diese Rechengeschwindigkeit der 
Fachwelt vorgeführt. 


Die Bell Laboratories 
sind nach dem Sprach- 
heillehrer Alexander 
Graham Bell benannt, 
der als schottischer 
Auswanderer in Ame- 
rika 1876 das erste 
brauchbare Telefon er- 
fand. Das Prinzip der 
elektrischen Tonüber- 
tragung hatte schon 
1861 der Deutsche Phil- 
ipp Reis vorgeführt. 
Nach der Überlieferung 
bestand das erste Tele- 
fongespräch Bell’s aus 
dem nachfolgenden be- 
deutenden Satz, den er 
an den Assistenten im 
Keller gerichtet hatte: 
„Kommen Sie mal rauf, 
Mr. Watson, ich brau- 
che Sie hier!“ 
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Das nebenstehende Bild 
zeigt die Auswirkungen 
der DIV-, MUL- und 
BCD-Befehle auf das 
Statusregister. Fehlt ein 
Bedingungscode, so be- 
deutet das jedoch nicht, 
daß das entsprechende 
Flag auch gelöscht ist. 
Wenn Sie einen (von 
einem vorangehenden 
Ablauf gesetzten) Be- 
dingungscode testen, 
erhalten Sie falsche 
Werte. 
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Befehlsempfänger 


Wir behandelten die Datenübertragungsbefehle und einfache Arith- 
metikanweisungen des Motorola 68000. Bevor wir weitergehen, müssen 
wir herausfinden, wie die Vergleichsbefehle des 68000 arbeiten. 


D: Befehl CMP (compare — vergleichen) 
ist der SUB-Anweisung sehr ähnlich. Se- 
hen Sie sich folgende Programmstruktur im 
Pseudo-Code an: 
if Eingabezeichen = 'N’ then 
Array-löschen 

end 
Die IF-Entscheidung wird in der Implementie- 
rungsphase des Programms als 

CMPB #'N’',DO Vergleiche Eingabebyte 

mit 'N’ 
BNE UNGLEICH Auf UNGLEICH verzwei- 
gen, wenn Eingabebyte 
ungleich 'N’ 
Der CMP-Befehl subtrahiert zwar die Quelle 
vom Ziel, verändert aber nur die Bedingungs- 
codes. Der Vorgang hat keinen Einfluß auf das 
Ziel (wie beispielsweise SUB). Wenn das Er- 
gebnis der Subtraktion von DO (das heißt 'N’) 
nicht gleich Null ist, dann veranlaßt die be- 
dingte Verzweigung — BNE — eine Verzwei- 
gung auf das Label UNGLEICH. 

Hier weitere Beispiele mit anderen Datenat- 
tributen: 

CMPW SPEED,D3 Vergleiche den Wort- 
inhalt der Speicher- 
stelle SPEED mit D3 
Vergleiche die beiden 
Langwörter in Dl und 
D2 
Die Ziele dieser beiden Beispiele sind Daten- 
register. Dabei kann zur Adressierung der 


CMPL D1,D2 


Setzen, wenn die Bedingung eintritt, ansonsten 
unverändert 


Setzen, wenn die Bedingung eintritt, ansonsten gelöscht 
Nicht definiert 
Immer gelöscht 


Nicht verändert 


Wird wie das Übertragsbit gesetzt 


Quelle jeder beliebige Modus eingesetzt wer- 
den. Wenn Sie eine andere Art Ziel adressie- 
ren wollen, müssen sie andere CMP-Befehle 
verwenden, zum Beispiel: 

CMPA BETTY,.A3 Vergleiche den Inhalt 

der Speicherstelle 

BETTY mit A3 
Dabei lassen sich zwar alle Adressierungsar- 
ten für Quellen einsetzen, doch sind im unmit- 
telbaren Format nur datenverändernde Modi 
möglich: 

CMPI #3, (A4) Vergleiche, ob A4 als 

Pointer auf 3 zeigt 

Schließlich verdient noch die Variante CMPM 
besondere Aufmerksamkeit. CMPM (A2)+, 
(A3)2 vergleicht beispielsweise den Inhalt der 
Speicherstellen, auf die A2 und A3zeigen, und 
nach-inkrementiert dann die Pointer. Damit 
kann ein einziger Befehl die gespeicherten 
Schlüsselwörter mit den Zeichen eines Einga- 
bebuffers vergleichen: 

LEA KEYS,A2 Den ersten Pointer auf 
die Schlüsselwörter 
setzen 
Bufferpointer anlegen 
Die beiden Speicher- 
stellen vergleichen 
Prüfen, bis ungleich 


LEA BUFFERS,A3 
CHECK CMPM.B 


BEO CHECK 


Das gesamte Programm belegt nur sieben 
Wörter. 

Bei CMPM ist nur die Adressierung mit 
Nach-Inkrementierung möglich. Für andere 
Formate können Sie einen Operanden in ein 
Datenregister laden und dann CMP einsetzen. 

NEG und EXT sind zwei einfache, aber sehr 
wichtige Arithmetikbefehle. NEG (Negation) 
zieht das Datenregister des Operanden von 
Null ab, das heißt, es bildet aus dem Register- 
inhalt den negativen Wert des Zweierkomple- 
ments (hier sind keine weiteren Adressie- 
rungsmethoden möglich). Wenn Sie mit DO = 
1111 1010 (dezimal —6) NEG.B DO ausführen, 
dann enthält DO am Ende 0000 O1lO (dezimal 6). 
Mit diesem Befehl wird oft der absolute Wert 
von Datenoperanden gebildet: Zuerst wird 
festgestellt, ob ein negativer Wert vorliegt, und 
dann negiert. Eine erweiterte Form dieses Be- 
fehls (NEGX) schließt das X-Bit in den laufen- 
den Vorgang mit ein. 

Mit EXT (Vorzeichenerweiterung) wird das 
Vorzeichenbit des Datenoperanden auf die 
nächstgrößere Operandengröße erweitert. 


EXT.W DO (mit DO = 11110101) ergibt FFFA 
(hex). Dieser Befehl läßt sich gut für Zahlen mit 
doppelter Genauigkeit einsetzen und beson- 
ders für große Operanden bei Multiplikations- 
und Divisionsbefehlen. 

Bevor wir uns den komplizierteren arithmeti- 
schen Anweisungen zuwenden, müssen wir 
untersuchen, was die binären Bitmuster der 
Datenbytes überhaupt bedeuten. So könnten 
wir die Zahl 1001 0110 (z. B. in DO gespeichert) 
als Ganzzahl mit dem Werk —106 ansehen (der 
Wert entsteht, wenn Sie die Zahl umkehren 
und Eins addieren). Wenn die Zahl jedoch 
nicht vorzeichenbehaftet ist und der gesamte 
Binärbereich von positiven Ganzzahlen belegt 
wird, dann ergibt sich hexadezimal 96 (dezi- 
mal 150). Zahlen ohne Vorzeichen sind prak- 
tisch, wenn nur ein großer positiver Zahlenbe- 
reich gebraucht wird. So läßt sich beispiels- 
weise der Adreßbereich eines Computers als 
ein Bereich positiver Zahlen ohne Vorzeichen 
ansehen. Wenn Sie diese Zahlen nicht mit 
Operatoren im Zweierkomplement bearbeiten, 
gibt es keine Probleme. 


Illegale Bitfolgen 


Und es gibt noch eine weitere Interpretation 
der Bitmuster: das BCD-System (binär codierte 
Dezimalzahlen). Bei diesem praktischen Da- 
tencode werden Dezimalzahlen in jeweils vier 
Bits codiert. Unser Beispiel (DO = 1001 0110) 
würde daher den BCD-Wert von 96 ergeben 
(1001 = 9 und 0110 = 6). 

Selbst große Zahlen lassen sich leicht in 
BCD-Zahlen umwandeln und umgekehrt. Die 
Dezimalzahl 9631 sieht im BCD-Code so aus: 
1001 0110 0011 0001. 

Ebenso einfach wird die Rechengenauigkeit 
definiert. Dabei sind beim BCD-Code be- 
stimmte Bitfolgen illegal. Da BCD nur die Zah- 
len von O bis 9 codiert, gibt es keine Verwen- 
dung für die Codes zwischen 1010 (dezimal 10) 
und 1111 (dezimal 15). 

Bei der Behandlung der Arithmetikbefehle 
des 68000 werden Sie sehen, wie wichtig da- 
bei die Interpretation der Bitmuster ist. Unter- 
suchen wir zunächst den Ablauf einer binären 
Multiplikation. Wenn zwei 16-Bit-Operanden 
multipliziert werden, kann das Bitmuster des 
Ergebnisses 32 Bits lang sein. Für eine Wort- 
länge von n ist das Produkt der größten Zahl, 
2u=D, die doppelte Länge des ursprünglichen 
Wortes oder 2), 

Binäre Multiplikationsbefehle haben daher 
zwei 16-Bit-Operanden und ein 32-Bit-Ergeb- 
nis. Die Verarbeitung von Zahlen mit und ohne 
Vorzeichen geschieht über zwei unterschied- 
liche Befehle — MULU (multiplizieren ohne 
Vorzeichen) und MULS (multiplizieren mit Vor- 
zeichen). Beide Befehle multiplizieren die 
Operanden und erzeugen in dem Zielregister 
ein Ergebnis im 32-Bit-Format, wobei der Ope- 
rand nur mit Datenadressierungsarten ange- 


sprochen werden kann, damit der Computer 
den Befehl ausführt. 

MULU #20,D0 für DO = XXXX 0003 (X kann O 
oder 1 sein) ergibt DO = 0000 003C. Dabei wird 
das gesamte 32-Bit-Datenregister eingesetzt, 
obwohl es in diesem Fall nicht nötig ist. 

Auf ähnliche Weise erhalten Sie bei MULU 
#S10,D0 für DO = XXXX FFFF das Ergebnis DO 
= 000F FFFO. Der Befehl MULS ergibt DO = 
FFFF FFFO, da sich das vorzeichenbehaftete 
Ergebnis auf 32 Bits erstreckt. Die Resultate 
lassen sich leicht prüfen, da der Multiplikator 
10 (Hex) einer vierfachen Linksverschiebung 
oder einer Multiplikation mit 16 entspricht. 

Auch die Bedingungscodes sind bei der 
Multiplikation wichtig. So werden die Flags N 
und Z je nach Ergebnis gesetzt und die Bits V 
und C auf Null gestellt. Obwohl Sie bei Ope- 
randen mit Wortlänge und einem Langworter- 
gebnis nie einen Überlauf erhalten können, 
lohnt sich die Feststellung, ob das Ergebnis 
die Wortlänge überschreitet (damit es, falls nö- 
tig, auf die von Ihnen gewünschte Wortlänge 
gekürzt werden kann). 

Das folgende Programmbeispiel zeigt, wie 
der Befehl MULS für die Umwandlung von de- 
zimalen ASCI-Codes in Binärwörter eingesetzt 
wird. Als erstes muß das Eingabezeichen in Bi- 
närformat umgewandelt und dieses Bitmuster 
dann in einen binären Akkumulator addiert 
werden. Vor der Addition muß jedoch sicher- 
gestellt sein, daß die vorige Eingabe mit. 10 
multipliziert wurde (da sie im Dezimalformat 
erfolgt). Hier der Code: 

SUB.B #'0',D0 Dezimalen Zeichencode in 
Binärformat wandeln 
MULS #10,D5 Die alte Summe mit dezimal 
10 multiplizieren 
ADD.W D0,D5 Neuen Wert addieren 
In diesem Beispiel befindet sich das Eingabe- 
zeichen in DO und das neue Binärwort mit dem 
binären Zeichencode in DS. 


Gute Vorzeichen 


Auch für die Subtraktion gibt es zwei Befehle — 
DIVU für Zahlen ohne Vorzeichen und DIVS für 
Zahlen mit Vorzeichen. Beide Befehle nehmen 
die Ganzzahl mit 32-Bit-Format im Zieldatenre- 
gister und teilen sie durch den Quelloperan- 
den im 16-Bit-Format. Das Ergebnis wirdin den 
niederwertigen 16 Bits des Zieldatenregisters 
gespeichert, während der Rest in den höher- 
wertigen 16 Bits erscheint. Bei DO = 0000 0005 
(Hex) ergibt 
DIVU #3,DO 

DO = 0002 0001 (das heißt 1 Rest 2). Da der 
Zieloperand 32 Bits lang ist, sollte, falls nötig, 
zuvor das entsprechende Langwort gelöscht 
oder mit EXT.L eine Langworterweiterung an- 
gegeben werden. Da Überläufe auftreten kön- 
nen (das Ergebnis der Teilung eines 32-Bit- 
Wortes durch Eins kann durchaus das 16-Bit- 
Format überschreiten), muß in bestimmten Fäl- 
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Decoder °‘ 


Der Befehlssatz des 
68000 enthält nicht nur 
Codes für Zahlen mit 
und ohne Vorzeichen, 
sondern auch für die 
Verarbeitung von BCD- 
Formaten (binär co- 
dierte Dezimalzahlen). 
Diese Zahlen sind be- 
sonders praktisch, 
wenn die größtmög- 
liche mathematische 
Genauigkeit gefordert 
ist. Auch in anderen 
Anwendungsbereichen, 
wie beispielsweise in 
der Steuerung von sie- 
benteiligen LED-Anzei- 
gen, hat das BCD-For- 
mat Vorteile. So ist die 
(im Bild gezeigte) Deco- 
dierung von vier auf 
sieben Bits einfacher 
als die Umwandlung 
von Binärzahlen. 
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len von Ihnen auch das Überlaufbit berück- 
sichtigt werden. 

Hier ein einfacher Algorithmus, der den 
Durchschnitt aller Zahlen einer Wortliste bildet. 
Die Liste endet mit einer Null: 


ORG $1000 
LEA LIST1,AO Adresse 
POINTER anlegen 
Ergebnisregister 
CLR.L DO löschen 
ELRL Di Schleifenzähler 
löschen 
LOOP ADDQO #1,D1 Wortzahl zählen 
ADD.W (A0O)+,DO Summe bilden 
TST (AO) Auf Ende der 
Liste prüfen 
BNE LOOP 
DIVU  D1,DO Summe durch 
Zähler teilen 
TRAP 0 
LISTI  °DC.W 1,2,3,4,0 


Im Initialisierungsteil des Programms werden 
Langwörter gelöscht, da die Summe das 32-Bit- 
Format hat. Dl ist der Zähler, und AO zeigt auf 
das Wort, das mit nach-inkrementierter Adres- 
sierung auf DO addiert wird. Danach wird das 
nächste Wort von LIST] mit TST getestet. Die- 
ser Befehl setzt nur die Bedingungscodes für 
BNE, ändert den Operand aber nicht. 

Der Befehl TST ist nötig, da das vorangegan- 
gene ADD die Bedingungscodes nach dem Er- 
gebnis der Addition des Datenoperanden auf 
DO setzt, nicht aber nach dem Wert der Daten, 
die über den Pointer AO geladen werden. Der 


Befehl BNE (verzweige bei ungleich Null) ver- 
anlaßt einen Rücksprung auf LOOP, wenn das 
nächste Listenelement nicht Null ist. Nach dem 
Auftreten einer Null enthält DO die Summe und 
D1 die Zahl der Elemente, die nicht Null sind. 

Nach vier Schleifendurchgängen stehen in 
den Datenregistern folgende Werte: 

DO = 0000 000A (oder dezimal 10) 

D1 = 0000 0004 
Nach Ausführung von DIVU enthält DO den 
Wert 0002 0002 (10 / 4= 2 Rest 2). 

Ein letzter Hinweis: Eine Teilung durch Null 
löst ein „Trap“ (ein Softwareinterrupt im Sy- 
stemmonitor) aus, da Unendlichkeit sich in 16 
Bits nicht darstellen läßt. Sie können statt des 
Trap auch prüfen, ob der Divisor Null ist. Hier 
ein Beispiel: 

SI DM 

BEQ ERROR 

DIVU D1,DO 
Wie praktisch das BCD-Format für die Codie- 
rung von Dezimalzahlen sein kann, hatten wir 
schon erwähnt. Hierbei entspricht eine legale 
BCD-Stelle einer Hexadezimalstelle (4 = binär 
0100 = 4 hex = 4 BCD). BCD-Konstanten wer- 
den daher auf die gleiche Weise gesetzt wie 
Hex-Konstanten: 

MOVE.B #$54,D0 speichert BCD 54 in DO 

Doch hier endet die Ähnlichkeit auch schon. 
Wenn Sie zwei BCD-Stellen mit binärer 
Arithmetik addieren, erhalten Sie ein falsches 


Ergebnis 

0100 1001 (BCD 49) binär addiert 
0000 0001 (BCD 1) 

0100 1010 


Dabei entsteht für die niederwertige BCD- 
Stelle ein illegaler BCD-Code. Der 68000 bietet 
für diesen Zweck einen Satz von BCD-Befeh- 
len: ABCD (Addition), SBCD (Subtraktion) und 
NBCD (Negation). 

Der BCD-Befehl ABCD addiert das Quellen- 
byte (je zwei BCD-Zahlen) mit dem Bit X auf 
das Zielbyte und speichert dort auch die 
Summe. Hier sind als Adressierungsarten je- 
doch nur Datenregisterpaare und vor-dekre- 
mentierte Datenregisterpaare erlaubt. Bei DO 
= 44 BCD und D1 = 01 BCD und nach Ausfüh- 
rung des Befehls 

ABCD D0,D1 
enthält D1 45 BCD. Wenn das Bit X des SR ge- 
setzt ist (entspricht dem Übertrag von BCD) 
würde das Ergebnis 46 lauten. In ähnlicher 
Weise ergibt die Addition von l auf 99 in DO 
den Wert 00 mit dem gesetzten Bit im Statusre- 
gister. Zwar lassen sich nur Byteoperanden an- 
geben, doch ermöglicht Bit X eine hohe Re- 
chengenauigkeit, da Überläufe in höherwer- 
tige Bytekomponenten übernommen werden. 

Die Bedingungscodes X, C und Z werden 
bei allen BCD-Befehlen gesetzt. Beachten Sie 
jedoch, daß der Befehl NBCD (negiere BCD) 
beim Zieloperanden datenverändernde Adres- 
sierungsarten zuläßt. 


Fachwörter von A bis Z 


Source Code = Quellprogramm 

Ein Quellprogramm ist in einer Com- 
piler- oder Assemblersprache ge- 
schrieben. Daraus muß vor Ablauf im 
Rechner durch Übersetzen in den 
Maschinencode ein „Objektpro- 
gramm“ erzeugt werden. Das Quell- 
programm, z.B. in PASCAL oder CO- 
BOL, wird zunächst einer syntakti- 
schen Prüfung unterzogen; treten da- 
bei keine Fehler auf, folgt die Com- 
pilierung. Auch ein Assemblerpro- 
gramm mit seinen mnemotechni- 
schen Befehlen und symbolischen 
Adressen stellt ein Quellprogramm 
dar, das durch Assemblieren in die 
Maschinensprache umgesetzt wird. 


Split Screen = Fenstertechnik 

Bei dieser Technik wird der Bild- 
schirm in zwei oder mehr Felder un- 
terteilt, so daß oben auf dem Schirm 
ein Menü stehen kann, während dar- 
unter der Text dargestellt wird. Die 
untere Schirmhälfte läßt sich dabei 
unabhängig von der oberen bearbei- 
ten, und der Benutzer kann auch 
meist beliebig zwischen den Fen- 
stern hin und her springen. Das ist 
beispielsweise beim Editieren lan- 
ger Schriftstücke sehr praktisch, weil 
ältere Passagen parallel zum Neuent- 
wurf überarbeitet werden können. 
Besonders bei Abenteuerspielen fin- 
den Sie jetzt immer häufiger auch 
einen geteilten Grafikschirm. 


Spooler = Spooler 
Systemprogramme, die den Daten- 
fluß an Peripheriegeräte (meist 
Drucker oder externe Speicher) auf- 
fangen und nach dem Warteschlan- 
genprinzip in eigener Regie verwal- 
ten, heißen „Spooler“. Sie sind vor 
allem deshalb zweckmäßig, weil die 
Ausgabegeschwindigkeit des Pro- 
zessors sehr viel größer ist als die 
Aufnahmefähigkeit der Peripherie. 
Wenn Daten dann zunächst in einen 
Puffer gesteckt werden, braucht die 
CPU nicht auf das externe Gerät zu 
warten. Zumeist arbeitet der Spooler 
unabhängig von der CPU und läßt 
sich direkt vom zugehörigen Peri- 
pheriegerät mitteilen, wann wieder 
neue Daten gesendet werden 
können. 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


'„Stacks“ oder Stapelspeicher spielen in 


der Datenverarbeitung für das kurzfri- 
stige Deponieren von Informationen eine 
wichtige Rolle. Sie sind besonders ein- 
fach zu handhaben. Beim LIFO-Stack ist 
wie beim Würfelstapel aus dem Bauka- 
sten der Zugriff nur von oben her mög- 
lich. Die Reihenfolge der gespeicherten 
Größen bleibt vom Eintragen bis zum 
Auslesen unverändert, was für die Ver- 
waltung der Rücksprungadressen bei 
verschachtelten Unterprogrammaufrufen 
ideal ist. Eine einfache Einsatzmethode 
für nicht so routinierte Anwender. 


Square Wave = Rechtecksignal 
Ein elektrisches Signal, das perio- 
disch zwischen zwei Spannungspe- 
geln hin- und herspringt, wird als 
„Rechtecksignal“ bezeichnet. Eine 
solche Impulsfolge ist als Muster 
von binären Nullen und Einsen inter- 
pretierbar und dient zur Informa- 
tionsübertragung, beispielsweise 
zwischen CPU und der Peripherie. 


Stack = Stapelspeicher 

Der „Stack“ ist als spezieller Spei- 
cherbereich der CPU eines Compu- 
ters zugeordnet und wird zur kurzfri- 
stigen Ablage von Registerinhalten 
und anderen Informationen benutzt. 
Die Kapazität des Stack und seine 
Lage im Arbeitsspeicher hängt vom 
jeweiligen Prozessor ab: Beim 6502 
liegt der Stack auf der Nullseite 
(Zero Page) und faßt nur 256 Byte, 
beim Z80 dagegen können ihm be- 
liebige Adressen und bis zu 64 
KByte zugeteilt sein. Der Stack ist 
aber stets in gleicher Weise organi- 
siert und geordnet. 

Jeder Prozessor verfügt über be- 
sondere Stack-Befehle zum Eintra- 
gen (PUSH) und Entnehmen (POP) 
von Information. Beim üblichen 
LIFO-Stack werden die Daten „auf- 
einander“ gestapelt; die letzten Ein- 
träge werden zuerst ausgelesen. 

An diesem Prinzip kommt man 
beim Umgang mit dem Stack kaum 
vorbei: Die tieferstehende Informa- 
tion ist nur zugänglich, wenn der 
Stack von oben her weit genug ab- 
gearbeitet ist. Für den Zugriff hält 
ein bestimmtes CPU-Register, der 
„Stack Pointer“ (Stapelzeiger), stets 
als aktuelle Adresse die der zuletzt 
angesprochenen Speicherzelle be- 
reit. Der Stapelzeiger wandert beim 
Füllen und Leeren des Stack auto- 
matisch auf- bzw. abwärts, kann aber 
seitens des Programmierers bei Be- 
darf auch verschoben werden. 
Stack-Manipulationen sind nur im 
Maschinencode vorgesehen, aber es 
gibt sie auch in FORTH. 


Bildnachweise 
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Die Steuersoftware ist in ‚FORTH‘ geschrieben, das Betriebs- 
system basiert auf ‚C‘ und das Handbuch ist japanisch 
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